Excel VBA質問箱 IV

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

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


13635 / 76732 ←次へ | 前へ→

【68600】Re:初歩的な質問で済みませんが
お礼  ネジクマ  - 11/3/28(月) 21:35 -

引用なし
パスワード
   ▼kanabun さん:
ご指摘のとおりやってみたらうまくいきました。
半角スペースなどはあまり関係ないかと思いこんでいました。
さっそくのご返事ありがとうございました。

>▼ネジクマ さん:
>
>> サンプルコードを打って試してみたのですが、構文エラーになります。本のとおりと思うのですが・・・何が間違っているのでしょうか?
>
>>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 お礼

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