Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1892to1896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bilder mit VBA ansprechen u. ändern

Bilder mit VBA ansprechen u. ändern
03.08.2022 13:24:03
Erwin
Hallo liebe Spezialisten,
ich bekomme immer wieder Tabellen geliefert, teils ohne - öfter aber mit einer/mehreren Grafik(en) / Bilder(n).
Oft sind diese verzerrt wie im Beispiel. https://www.herber.de/bbs/user/154496.xlsm
Ich habe zwar mal Codeschnipsel gefunden, um die Grafik(en) anzupassen, aber die funktionieren leider nicht.
Kann mir bitte jemand mit einem Code helfen, der folgendes bewirkt:
- wenn keine Grafik vorhanden ist, mache nichts
- wenn eine/mehrere Grafiken vorhanden sind, dann ändere alle in Höhe 3 cm und Breite 2 cm (das passt zwar bei den Beispielbildern in der Datei nicht, aber es geht nur ums Prinzip).
Danke - Erwin

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder mit VBA ansprechen u. ändern
03.08.2022 14:03:41
Nepumuk
Hallo Erwin,
da hat sich eine 1 nach With Picture eingeschlichen. Das wäre dir aufgefallen, wenn du Option Explicit verwendet hättest.

Option Explicit
'Grafik formatieren anfang --------------------------------------------------
Public Sub Grafik_formatieren()
Dim Picture As Shape
'ActiveSheet.Shapes.Range(Array("Grafik1")).Select
For Each Picture In ActiveSheet.Shapes
With Picture
'Breite und Höhe der Grafik bitte in Klammer hier anpassen :
.Height = Application.CentimetersToPoints(2)
.Width = Application.CentimetersToPoints(3)
End With
Next
End Sub
'Grafik formatieren ende ----------------------------------------------
Gruß
Nepumuk
Anzeige
It's so easy - Danke owT
03.08.2022 14:37:52
Erwin

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige