VBA: Ansprechen von eingefügten Bildern
04.03.2020 21:32:41
eingefügten
Folgende Ausgangssituation:
Ich habe einen Reiter in der Excel-Mappe in dem ein Protokoll geführt wird --> Spalten A-H
In der "Spalte I" ist eine leere Zelle, in die ein Bild zu dem jeweiligen Protokolleintrag _ eingefügt werden soll (im unteren Makro ist es Spalte I = ActiveCell). Dieses Bild soll der Nutzer selbst von seinem PC auswählen - über ein ActiveX-Button und das Standard-Dialogfenster. Um die eingefügten Bilder dann entsprechend zu richten und die Größe anzupassen, habe ich ein Makro geschrieben:
Sub BilderEinfuegen()
Dim objFile As Object
Dim ObjektDLG As Dialog
Dim T As Double, L As Double
T = ActiveCell.Top
L = ActiveCell.Left
Set ObjektDLG = Application.Dialogs(xlDialogInsertPicture)
ObjektDLG.Show
Application.ScreenUpdating = True
For Each objFile In ActiveSheet.Shapes
objFile.Width = 150
objFile.Top = T
objFile.Left = L
T = T + objFile.Width
Next
Application.ScreenUpdating = False
End Sub
Folgende Problematik:
Das Problem bei dem Makro ist, dass er damit ALLE Shapes anspricht (und damit auch z.B. den ActiveX-Button) und die nacheinander ausrichtet.
Ich möchte jedoch, dass er NUR die neu eingefügten Bilder ausrichtet (es kann sowohl 1 als auch 5 Bilder sein, die der User über das Dialogfenster zum Einfügen auswählt)
Folgende Fragestellung:
Wie spreche ich diese neu eingefügten Bilder an, ohne die bereits vorhanden Bilder/Shapes in dem Reiter anzufassen?
Wäre euch sehr dankbar für Lösungsvorschläge
Viele Grüße
Anton