作りたいものがあり、それに利用するためにExcelのマクロを調べてみました。
下記のサンプルをマクロに貼り付けると、画像が回転します。
Sub ShapesRotation()
Dim i As Long
Dim oShape As Shape 'オートシェイプ保存用変数は、Shape型にする
'オートシェイプを作成し、変数に保存する
Set oShape = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 50, 100, 50)
oShape.TextFrame.Characters.Text = "abc"
For i = 1 To 360 '360は0になる
oShape.Rotation = i
oShape.TextFrame.Characters.Font.Size = Int(10 + 30 * i / 360)
DoEvents
Next
End Sub
|