|
▼ネジクマ さん:
> サンプルコードを打って試してみたのですが、構文エラーになります。本のとおりと思うのですが・・・何が間違っているのでしょうか?
>Sub オートシェイプ作成()
>
>Set r = Range("C9")
>
>Worksheets(1).AddShape_
> Type:= msoShapeRectangle,_
> Left := r.Left,_
> Top := r.Top,_
> Width := r.Width,_
> Height := r.Height,_
>
>End Sub
それは、きっと こういうコードだったのでしょう。
◆行引継ぎをあらわす _(アンダースコア) のまえに 半角スペースが
必要です。
Sub オートシェイプ作成()
Dim r As Range
Set r = Range("C9")
Worksheets(1).Shapes.AddShape _
Type:=msoShapeRectangle, _
Left:=r.Left, _
Top:=r.Top, _
Width:=r.Width, _
Height:=r.Height
End Sub
|
|