Predpokladám, že ten obrázok bude pravdepodobne objekt Shape a bude mať pravdepodobne nejaké meno. V takom prípade nejako takto asi:Sub Rotuj()
Dim myPic As Shape
Set myPic = ActiveSheet.Shapes("Picture 1")
With myPic
.Rotation = 90
End With
End Subcitovat
Dim myPic As Shape
Set myPic = ActiveSheet.Shapes("Picture 1")
With myPic
.Rotation = 90
End With
End Subcitovat