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:
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
Ersetze "Image4" durch eine Stringvariable.
Worksheets("Minus_final").Shapes(Bildname).Top = 85.5
Guten Morgen,
war doch einfacher, als gedacht:
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:
(https://www2.pic-upload.de/thumb/37345769/Richtig.jpg) (https://www.pic-upload.de/view-37345769/Richtig.jpg.html)
Falsche Darstellung in gespeicherter Excel:
(https://www2.pic-upload.de/thumb/37345771/Falsch.jpg) (https://www.pic-upload.de/view-37345771/Falsch.jpg.html)
Das hinterlegte Makro wird ausgeführt, alles ok, nur die Darstellung ist nicht gut. Wie bekomme ich das geändert?
Grüße
Mirko