[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『写真の移動』(torao)
セルに数枚の写真を挿入し、書類を作成しております。
1シートに写真を入れるセルは全部で6箇所で、B6,D6,B9,D9,B12,D12です。
(ダブルクリックで写真を入れられるようにしてあります。)
写真を差し替える際に、マクロで写真が移動すると楽ではないかと考え、
下記のコードをネットで調べました。
これでD12のセルに移動しますが、ユーザーフォームなどで任意のセルに写真を移動させるには、
どうしたら良いか教えてください。
Sub 写真移動2()
Selection.Left = Range("D12").Left Selection.Top = Range("D12").Top End Sub
< 使用 Excel:Excel2013、使用 OS:Windows7 >
Sub 写真移動2() Dim Rng As Range With Selection.ShapeRange Set Rng = Application.InputBox("移動先セルを選択してください", Type:=8) .Left = Rng.Left .Top = Rng.Top End With End Sub
ではどうでしょうか。 (ろっくん) 2018/05/18(金) 15:47
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.