Excel VBA質問箱 IV

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

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


4380 / 13644 ツリー ←次へ | 前へ→

【57022】オートシェイブの表示 超初心者 08/7/17(木) 21:03 質問[未読]
【57023】Re:オートシェイブの表示 kanabun 08/7/17(木) 21:14 発言[未読]
【57024】Re:オートシェイブの表示 kanabun 08/7/17(木) 21:38 発言[未読]
【57025】Re:オートシェイブの表示 超初心者 08/7/17(木) 21:39 お礼[未読]

【57022】オートシェイブの表示
質問  超初心者  - 08/7/17(木) 21:03 -

引用なし
パスワード
   オートシェイブで○を作りました。
マウスで移動させのではなくVBAのコードで移動させたいのですが、自動記録でやった見たのですがどうもやりたいことと違います。書き方が分かりませんので教えて下さい。
例えば何処に書いていても必ずB10に来る方法を教えて下さい。

【57023】Re:オートシェイブの表示
発言  kanabun  - 08/7/17(木) 21:14 -

引用なし
パスワード
   ▼超初心者 さん:

>例えば何処に書いていても必ずB10に来る方法を教えて下さい。

With ActiveSheet.AutoShapes("そのオートシェイプ名")
  .Left = Range("B10").Left
  .Top = Range("B10").Top
End With

みたいなことですか?

【57024】Re:オートシェイブの表示
発言  kanabun  - 08/7/17(木) 21:38 -

引用なし
パスワード
   ごめんなさい↓ぼけてました m(__)m

>With ActiveSheet.AutoShapes("そのオートシェイプ名")
          ↓
With ActiveSheet.Shapes("そのオートシェイプ名")

【57025】Re:オートシェイブの表示
お礼  超初心者  - 08/7/17(木) 21:39 -

引用なし
パスワード
   ▼kanabun さん:
>▼超初心者 さん:
>
>>例えば何処に書いていても必ずB10に来る方法を教えて下さい。
>
>With ActiveSheet.AutoShapes("そのオートシェイプ名")
>  .Left = Range("B10").Left
>  .Top = Range("B10").Top
>End With
>
>みたいなことですか?
できましたー、ありがとう。

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