Transparent si pas d'image.

Hulk · 25 Octobre 2011

Hello ami(e)s Excellien(ne)s 🙂

Ai un petit soucis d'affichage dans un Shape.

En gros :

Si la valeur de la cellule = "" il affiche un transparent. -> Ok

Mais si la valeur de la cellule = "Tomates" et que je n'ai pas l'image des tomates, il plante, mais je souhaiterais qu'il affiche aussi le transparent !

Le mieux est de voir le fichier joint.

Attends vos lumières 😎

TempusFugit · 25 Octobre 2011

Re : Transparent si pas d'image.

Bonjour

Cela semble OK ainsi

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim image As String
If Not Intersect(Target, Range("B7")) Is Nothing Then
If Not Len(Dir(ActiveWorkbook.Path & "\" & Target.Value & ".jpg", vbNormal)) > 0 Then
image = ActiveWorkbook.Path & "\" & "Transparent" & ".jpg"
Shapes("Rectangle 1").Fill.UserPicture image
Else
image = ActiveWorkbook.Path & "\" & Target.Value & ".jpg"
Shapes("Rectangle 1").Fill.UserPicture image
End If
End If
End Sub

Hulk · 25 Octobre 2011

Re : Transparent si pas d'image.

Re,

Génial..

À ranger dans mon tiroir magique après l'avoir étudié 🙂

Merci infiniment Tempus !

Transparent si pas d'image.

Hulk

XLDnaute Barbatruc

Pièces jointes

TempusFugit

XLDnaute Impliqué

Hulk

XLDnaute Barbatruc

Discussions similaires

Transparent si pas d'image.

Hulk

XLDnaute Barbatruc

Pièces jointes

TempusFugit

XLDnaute Impliqué

Hulk

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency