Comment rend on moins opaque un shapes. J'ai créer ça, mais la propriété de transparence n'est pas applicable.
ActiveSheet.Shapes("sup").Width = 100 c'est ok
'With ActiveSheet.Shapes("sup")
ActiveSheet.Shapes("sup").Width = 100
ActiveSheet.Shapes("sup").Transparency = 0.7
ActiveSheet.Shapes("sup").Visible = True
'End With
ne fonctionne pas, pouvez vous m'aider svp, mrci.
Eric D
Cele ne fonctionne pas. Dans mon code, c"est la ligne où il y a Transparency qui 'coince', 'propriétée non gérée par cet objet'.
comment y remedier?
Eric D
Cela me paraissait intéressant, malheureusement ma forme est tjs opaque... y a t'il une autre solution ou y a t'il une contre indication à la fonction d'opacité sans causer d'erreur???
Merci et bon AP
Eric D
Je ne dois pas m'y prendre correctement. Je voudrait créer un 'objet' ,une 'forme'?, un rectangle arrondi de couleur vert RGB(0,128,0) et d'opaité 0,5 et de pouvoir l'effacé plus tard.
Merci por ton aide
Eric D
J'ai essayé ton code, mais il neme crée pas un shape donc j'ai créer un control image mais il reste opaque.
Comment faire ?
Je maitrise pas bien la gestion de shape, aussi doit on pouvoir faire varier son opacité entre autre
Plein de questions m'interrogent dont je n'ai pas de reponse.
Merci pour vos lumières
Eric D
Sub test()
Dim sh As Shape
Set sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 10)
With sh.Fill
.Visible = True
.ForeColor.RGB = RGB(0, 128, 0)
.Transparency = 0.5
End With
End Sub
J'ai finalement trouvé pourquoi ma forme était opaque, je déclanchais la macro plusieurs fois, elle était ds une sous routine mousemove, il fallait que je vérifie un indice et que je l'initialise quand je rentrais ds la proc. Ensuite je ne voyais pas pourquoi je e pouvais l"assombrir. Il fallit diminuer et non pas augmenter transparency. Voila, encore un grand merci à vous toutes et tous et bonne soirée.
Eric D