Ｐａｇｅ 846 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼画像を特定の座標（セル）に移動する方法 いがぐり坊や 03/3/7(金) 13:41 ┗Re:画像を特定の座標（セル）に移動する方法 こう 03/3/7(金) 14:12 ┗Re:画像を特定の座標（セル）に移動する方法 つん 03/3/7(金) 14:26 ┗Re:画像を特定の座標（セル）に移動する方法 いがぐり坊や 03/3/7(金) 15:04 ─────────────────────────────────────── ■題名 ： 画像を特定の座標（セル）に移動する方法 ■名前 ： いがぐり坊や ■日付 ： 03/3/7(金) 13:41 -------------------------------------------------------------------------
| 初めて質問させて頂きます。 便利なVBAに魅せられ社内業務の一部簡略化を図るべく 手探りで組んでみているのですがどうしても分からないので どなたかお力添えお願いします。 こちらでやりたい事は画像（gifやjpg等）を特定のシート上の 特定の座標（セルでも可）へ移動したいという単純なです。 マウスを使い画像移動の様をマクロ記録すると↓のようになりました。 ActiveSheet.Shapes("Picture 114").Select Selection.ShapeRange.IncrementLeft -77.25 Selection.ShapeRange.IncrementTop -359.25 この方法ですと移動量換算なので正確に座標指定できません。 カットアンドペーストの方法も試しましたが この方法だと貼り付けた後の画像のラベル名が 変わってしまう為1回きりで終わってしまいます。 オートシェイプには座標指定方法があるようですが 画像にもこの方法が使えないでしょうか？ 分かりにくくて申し訳ないのですが どなたかヒントを頂けると助かります。 |
| いがぐり坊やさん、こんにちわ。 > ActiveSheet.Shapes("Picture 114").Select > Selection.ShapeRange.IncrementLeft -77.25 > Selection.ShapeRange.IncrementTop -359.25 >この方法ですと移動量換算なので正確に座標指定できません。 Selection.ShapeRange.Left = 10 Selection.ShapeRange.Top = 10 10は左上からの座標です。 |
| いがぐり坊やさん、こうさん、こんにちは。 > Selection.ShapeRange.Left = 10 > Selection.ShapeRange.Top = 10 > >10は左上からの座標です。 セルに合わせるんやったら Selection.ShapeRange.Left = Range("C3").Left Selection.ShapeRange.Top = Range("C3").Top ってすればＯＫみたい♪ |
| ▼つん さん： >いがぐり坊やさん、こうさん、こんにちは。 > >> Selection.ShapeRange.Left = 10 >> Selection.ShapeRange.Top = 10 >> >>10は左上からの座標です。 > >セルに合わせるんやったら > > Selection.ShapeRange.Left = Range("C3").Left > Selection.ShapeRange.Top = Range("C3").Top > >ってすればＯＫみたい♪ セルの結合などを多様したシートでやっているせいか 少々挙動が怪しいですが確かに指定セルに移動出来ました！ こういう方法もあるんですね、もっと精進せねば、、、 つんさん、こうさんありがとうございました！ |