Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7405 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【39301】図形描画のマクロ Hiro 06/6/21(水) 18:14 質問[未読]
【39312】Re:図形描画のマクロ Jaka 06/6/22(木) 10:07 回答[未読]
【39372】Re:図形描画のマクロ Hiro 06/6/22(木) 19:05 お礼[未読]
【39301】図形描画のマクロ
質問  Hiro  - 06/6/21(水) 18:14 -
引用なし
パスワード
   データの入ったシートをクリックするとその行の項目が
別シート上に作った伝票の項目に入るマクロを考えているのですが、
データシートのセルの内容を伝票の項目にコピーするのは出来るのですが
出来ることなら伝票の項目を丸印で囲みたいと思っているのですが
図形描画のマクロの記録では、元の位置から移動した部分だけです。

ActiveSheet.Shapes("Oval 1").Select
　　Selection.ShapeRange.IncrementLeft 72
　　Selection.ShapeRange.IncrementTop 27.75

移動した後に、ブックが保存される前に移動した部分を
元に戻さなければ、同じところに○が付けられないかと思うのですが、
移動した数字をマイナスする以外方法はないのでしょうか？
あるいは、このシートだけ保存しない方法はあるのでしょうか？
項目の並びは以下の通りです。

　　　E　　　　F
11　納　品　引　取
12　移　動　ﾁｬｰﾀｰ
13　入　替　夜　積
14　陸　送　継　送

よろしくお力添えお願いいたします。
【39312】Re:図形描画のマクロ
回答  Jaka  - 06/6/22(木) 10:07 -
引用なし
パスワード
   こんな感じにすれば、いいです。

With ActiveSheet.Shapes("Oval 1")
　 .Left = 5
　 .Top = 20
End With
【39372】Re:図形描画のマクロ
お礼  Hiro  - 06/6/22(木) 19:05 -
引用なし
パスワード
   ▼Jaka さん：
ありがとう御座いました。
おかげで自由な位置決めが出来ました。
これからもよろしくお願いいたします。
感謝！感謝！

>こんな感じにすれば、いいです。
>
>With ActiveSheet.Shapes("Oval 1")
>　 .Left = 5
>　 .Top = 20
>End With
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7405 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free