Bildnamen auslesen
16.11.2016 22:29:21
Oisse
und Danke schon mal im voraus.
Ich habe ein Spalte I immer wieder mal Bilder eingefügt.
Nun möchte ich gerne den Namen dieser Bilder ermitteln, damit ich sie eventuell drehen kann.
Dazu will ich die Zeile, in der sich das Bild befindet gerne mittels Inputbox angeben können.
Bisher habe ich Folgendes:
Sub Linksherum_Klick()
Dim wks_Re As Worksheet
Dim objShp As Shape
Dim i As Long
Set wks_Re = ThisWorkbook.Worksheets("Newsletter")
Set i = InputBox("Welche Zeile?", "Zeile")
Bild = wks_Re.Cells(i, 9).Name
Set objShp = Sheets("Newsletter").Shapes(Bild)
objShp.Rotation = objShp.Rotation - 90 'Set objShp = Nothing
End Sub
Kann jemand bitte helfen