Excel VBAでかみなりのオートシェイプを作成|位置・サイズ・選択

オートシェイプの「かみなり」の図形を描くVBAを掲載しています。

用途としては、入力ミスをチェックし発生すれば「かみなり」が突然表示されるのはどうでしょうか。

描き方は、AddShapeメソッドのType引数にmsoShapeLightningBoltを指定します。

位置はLeftとTop、サイズはWidth・Heightになります。

色を付けるには、Fill.ForeColorや透明度を設定するTransparencyを使用します。

オートシェイプを選択し色を塗るVBAは「シェイプの位置・線色・塗りつぶしの色 等を設定」を参照してください。

Excel Tipsメニューに戻る


Excel VBA コード

Sub ExMakeShape()
    Dim tshape As Shape
    
    With ActiveSheet.Range("D14:E20")
        Set tshape = ActiveSheet.Shapes.AddShape(Type:=msoShapeLightningBolt, _
        Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
        tshape.Name = "シェイプLeftUpArrow"
    End With
    Set tshape = Nothing
End Sub

Private Sub CommandButton2_Click()
    ExMakeShape
End Sub

Excel実行画面



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


Copyright (c) Excel-Excel ! All rights reserved