Grafik mit transparentem Hintergrund
15.07.2003 10:52:54
BernhardStock
Ich füge mit der Anweisung:
Set pct = ActiveSheet.Pictures.Insert("Bild.gif")
eine Grafik, die bereits in der Tabelle enthalten ist,
an einer Variablen Stelle ein.
Wie kann ich nach dem Kopieren des Bildes den
Hintergrund wieder auf TRANSPARENT stellen?
Per Makrorecorder kam dies:
----
ActiveSheet.Shapes("Picture 103").Select
Selection.ShapeRange.PictureFormat.TransparentBackground = msoTrue
Selection.ShapeRange.PictureFormat.TransparencyColor = RGB(255, 253, 255)
Selection.ShapeRange.Fill.Visible = msoFalse
----
Aber der Bildname ändert sich ja jedesmal (Picture 103, Picture 104), und über den Einfügenamen ("Bild.gif") klappts nicht.
Gruß,
Bernhard