Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4382 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   オートシェイブで○を作りました。
マウスで移動させのではなくＶＢＡのコードで移動させたいのですが、自動記録でやった見たのですがどうもやりたいことと違います。書き方が分かりませんので教えて下さい。
例えば何処に書いていても必ずＢ１０に来る方法を教えて下さい。
【57023】Re:オートシェイブの表示
発言  kanabun  - 08/7/17(木) 21:14 -
引用なし
パスワード
   ▼超初心者 さん：

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

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 さん：
>▼超初心者 さん：
>
>>例えば何処に書いていても必ずＢ１０に来る方法を教えて下さい。
>
>With ActiveSheet.AutoShapes("そのオートシェイプ名")
>　　.Left = Range("B10").Left
>　　.Top = Range("B10").Top
>End With
>
>みたいなことですか？
できましたー、ありがとう。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4382 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free