Excel VBA質問箱 IV

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

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


2346 / 13646 ツリー ←次へ | 前へ→

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

【68598】初歩的な質問で済みませんが
質問  ネジクマ  - 11/3/28(月) 20:34 -

引用なし
パスワード
   初心者が失礼します。図を指定したセル位置に貼りたいと思い、ある本から以下のサンプルコードを打って試してみたのですが、構文エラーになります。本のとおりと思うのですが・・・何が間違っているのでしょうか?
エクセル2007です。よろしくお願いします。

Sub オートシェイプ作成()

Set r = Range("C9")

Worksheets(1).AddShape_
  Type:= msoShapeRectangle,_
  Left := r.Left,_
  Top := r.Top,_
  Width := r.Width,_
  Height := r.Height,_

End Sub

【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

【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

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