Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13636 / 76732 ←次へ | 前へ→

【68599】Re:初歩的な質問で済みませんが
発言  kanabun  - 11/3/28(月) 21:15 -

引用なし
パスワード
   ▼ネジクマ さん:

> サンプルコードを打って試してみたのですが、構文エラーになります。本のとおりと思うのですが・・・何が間違っているのでしょうか?

>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
1 hits

【68598】初歩的な質問で済みませんが ネジクマ 11/3/28(月) 20:34 質問
【68599】Re:初歩的な質問で済みませんが kanabun 11/3/28(月) 21:15 発言
【68600】Re:初歩的な質問で済みませんが ネジクマ 11/3/28(月) 21:35 お礼

13636 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free