Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" 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