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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen