|
▼neptune さん:
こんばんは。
私はちょっと認識が違って、
■『前者』前回挿入した写真『のみ』を表示する方法
...は何とかSendKeysだけでもできると思うんですけど
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Static Fname As String
SendKeys Fname
With Application
Fname = .GetOpenFileName("画像ファイル(*.jpg), *.jpg", _
Title:="画像を選択して下さい")
If Fname = "False" Then
Fname = ""
GoTo ELine
End If
.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
Fname = Dir(Fname) & "{tab 2}"
ELine:
End Sub
■『後者』ファイルリストは全て表示して、前回挿入した写真のファイルにフォーカスさせる
...はAPIのGetOpenFileNameでできるんでしょうか?
ファイル名のComboBoxではなくて
ファイル一覧のListViewでのファイル名へのフォーカスだと思い、
>従って、自分でそのような機能を持つダイアログを作成する必要があります。
これに同意で、UserFormを使って自作したほうが近道のような気がしたのですが...
|
|