Shapes in Excel Sheet ändern

[Blaupunkt79]

Hallo Zusammen,

sicher sehr einfach zu lösen, nur stehe ich gerade auf dem Schlauch.

In meinem Excel Sheet habe ich diverse Bilder, die ich wie folgt ansprechen kann:

Code [Auswählen] Erweitern

Worksheets("Minus_final").Shapes("Image4").Top = 85.5
Worksheets("Minus_final").Shapes("Image4").Left = 50.25

Soweit so gut, wie ändere ich jetzt aber "Image4"? Ich möchte das hinterlegte Bild durch ein anderes ersetzen?

Grüße

Mirko

[Beaker s.a.]

Ersetze "Image4" durch eine Stringvariable.

Code [Auswählen] Erweitern

Worksheets("Minus_final").Shapes(Bildname).Top = 85.5

[Blaupunkt79]

Guten Morgen,

war doch einfacher, als gedacht:

Code [Auswählen] Erweitern

Worksheets("Minus_final").Image4.Picture = LoadPicture(Runter)
Worksheets("Minus_final").Image5.Picture = LoadPicture(Hoch)

Allerdings ist jetzt ein anderes Problem aufgetaucht. In meinem Tool ist alles fein, die Bilder werden nun richtig angezeigt. Dieses Tool erzeugt, aus ausgewählten Excelsheets, separate Excel-Dateien, die abgespeichert werden, hier werden die Bilder mit schwarzem Hintergrund angezeigt:

Korrekte Darstellung im Tool:




Falsche Darstellung in gespeicherter Excel:




Das hinterlegte Makro wird ausgeführt, alles ok, nur die Darstellung ist nicht gut. Wie bekomme ich das geändert?

Grüße

Mirko