|
▼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
|
|