Neuigkeiten:

Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" drücken!

Mobiles Hauptmenü

Shapes in Excel Sheet ändern

Begonnen von Blaupunkt79, März 13, 2024, 10:49:58

⏪ vorheriges - nächstes ⏩

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:

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.
Worksheets("Minus_final").Shapes(Bildname).Top = 85.5
Alles, was geschieht, geschieht. - Alles, was während seines Geschehens etwas anderes geschehen lässt, lässt etwas anderes geschehen. - Alles, was sich selbst im Zuge seines Geschehens erneut geschehen lässt, geschieht erneut. - Allerdings tut es das nicht unbedingt in chronologischer Reihenfolge.
(Douglas Adams, Mostly Harmless)

Blaupunkt79

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:




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