オートシェイプを作成する(AddShapeメソッド)：Excel VBA｜即効テクニック｜Excel VBAを学ぶならmoug次のサンプル1は、アクティブシートの指定したセル範囲の位置に新しいオートシェイプを作成します。 ●サンプル1● Sub AddShapeSamp1() With ActiveSheet.Range("B3:D10") ActiveSheet.Shapes.AddShape(Type:=msoShapeHeart, _ Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height).Select '---B3:D10の範囲に、ハート形のオートシェイプを作成する End With Selection.Text = "モグタンだいすき！" & vbCrLf & "マコより" End Sub 引数Typeで作成するオートシェイプの種類を指定します。このコードでは、ハート型の図形を作成します。作成する位置と大きさはLeft/Top/Width/Heig
