[[20180518152307]] 『写真の移動』(torao) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『写真の移動』(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

(ろっくん)様
ありがとうございます。
出来ました。
<(_"_)>
(torao) 2018/05/18(金) 16:06

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.