Menuへ
三角くじを作ってみよう

Step 4　図を回転しマクロを登録する

貼り付けたGif画像を回転させてみます。
回転は、IncrementRotationを使用します。
さらにクジがクリックされたことがわかるように、マクロを登録します。
マクロを登録は、OnActionを使用します。
現時点でマクロ内容は登録されていないので、エラーになります。
シート画面
テストで90度回転させました。テキスト文字も回転しています。

シートコード
下記のコードに変更してください。

Sub ExPasteShape()
    Dim tshape As Shape
    
    Sheets("くじ引き").Activate
    
    '貼り付け
    ActiveSheet.PasteSpecial Format:="図 (GIF)", Link:=False, DisplayAsIcon:=False
    Set tshape = Selection.ShapeRange(1)
    '位置変更
    tshape.Left = 10
    tshape.Top = 10
    '名前を付ける
    tshape.Name = "kuji1"
    '回転
    tshape.IncrementRotation 90
    'マクロの割り当て
    tshape.OnAction = "ExShapeClick"
    
    Set tshape = Nothing
End Sub


Topへ
■このサイトの内容を利用して発生した、いかなる問題にも一切の責任は負いませんのでご了承下さい。■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します。

Copyright (c) 2006-2007 Excel-Excel ! All rights reserved.