|
▼aki-33 さん:
こんにちは、横から失礼します。
aki-33さんの質問への本来の回答ではないのですが、
もし画像の中身を見ながら選択する必要が無いなら
指定フォルダ内の画像ファイル名を一度読み込み
リストボックス等に整理して、ここから選択すると
言うのは如何でしょう?
これなら、前回選択ファイル名のフォーカス当てや
選択済みのファイルを別のリストに移すなどの工夫も
出来ると思いますが。
>下記の記述のようにフォルダーを指定して写真を貼り付けるマクロを作成したのですが、ダイアログの表示(ChDir Ph)を前回挿入した写真を選択した表示にする方法はないでしょうか?
>
>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
>Cancel As Boolean)
> Dim fName As String
> Const Ph As String = _
> "C:"
> ChDir Ph
> With Application
> fName = .GetOpenFilename("画像ファイル(*.jpg), *.jpg", _
> Title:="画像を選択して下さい")
> If fName = "False" Then GoTo ELine
> .ScreenUpdating = False
> End With
> Cancel = True
> With ActiveSheet.Pictures.Insert(fName)
> .Left = Selection.Left: .Top = Selection.Top
> .Width = Selection.Width: .Height = Selection.Height
> End With
>
>ELine:
>End Sub
|
|