Bildgröße per Button anpassen
24.06.2015 10:28:38
jochen
ich habe folgendes Problem und freue mich über jede Hilfe, die ich bekommen kann.
Ich habe ein Tabellenblatt-Nachweis-, dass ich per VBA vielfach kopiere und von dem ich mittels ComboBox-Auswahl (Kombinationsfeld ActiveX-Steuerungselement) auf die erstellten Tabellenblätter springe. Auf diesen neu erstellten Tabellenblättern möchte ich immer in die gleiche Zelle (Verbund mehrerer Zellen) jeweils ein individuelles Bild einfügen, welche aber oft in unterschiedlichsten Größen vorliegen.
Die Bildgröße passe ich nach dem "händischen" Einfügen der Grafik bisher mit folgedem Programmcode an die notwendige Größe an:
Sub AlleBildgroessenAnpassen()
Dim objPic As Object
For Each objPic In ActiveSheet.Pictures
'Alle Grafiken formatieren :
With objPic.ShapeRange
.LockAspectRatio = False
'Breite und Höhe der Grafik bitte in Klammer hier anpassen :
.Height = Application.CentimetersToPoints(4.5)
.Width = Application.CentimetersToPoints(3.5)
End With
Next
End Sub
Gibt es die Möglichkeit meinen Code so anzupassen, dass nur das Bild im dafür vorgesehenen Zellbereich angepasst wird oder nur das markierte (angeklickte) Bild?
Vielen Dank im Voraus
Jochen