Sub Makro2()
' Makro2 Makro
Dim objShape As Shape
Set objShape = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
With objShape
.Rotation = 90
With .PictureFormat
.CropLeft = 100
.CropTop = 100
.CropRight = 50
.CropBottom = 50
End With
End With
End Sub
'Erstellt unter Excel 2007
Sub Makro2()
' Makro2 Makro
Dim objShape As Shape, wks As Worksheet, iShape As Long
Set wks = ActiveSheet
iShape = wks.Shapes.Count
Do Until iShape = 0
Set objShape = wks.Shapes(iShape)
With objShape
If .Type = msoPicture Then
.Rotation = 90
With .PictureFormat
.CropLeft = 100
.CropTop = 100
.CropRight = 50
.CropBottom = 50
End With
'Exit Do 'Zeile aktivieren, wenn nur das Bild mit der _
höchsten Shape-Index-Nummer angepasst werden soll.
End If
End With
iShape = iShape - 1
Loop
End Sub