Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("d7:d28, i7:i28, n7:n28")) Is Nothing Then
On Error Resume Next
Dim ObjektDLG As Dialog
Set ObjektDLG = Application.Dialogs(xlDialogInsertPicture)
ObjektDLG.Show
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 127
End If
End Sub
Nun soll zusätzlich beim Anklicken von Zellen in den Spalten C, H und M ebenfalls ein Foto per Dialog ausgewählt werden und eingefügt werden. Dieses bekommt aber eine Höhe von 93. Wie kann ich das sinnvollerweise im Makro mit aufnehmen oder ein zweites Makro zusätzlich definieren, das auf den gewünschten Zellenbereich wirkt und so dass beide Makros funktionieren?