Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


26750 / 76732 ←次へ | 前へ→

【55311】Re:ダイアログの表示方法
発言  n  - 08/4/26(土) 23:34 -

引用なし
パスワード
   ▼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を使って自作したほうが近道のような気がしたのですが...
6 hits

【55298】ダイアログの表示方法 aki-33 08/4/26(土) 12:19 質問
【55299】Re:ダイアログの表示方法 n 08/4/26(土) 12:48 発言
【55302】Re:ダイアログの表示方法 aki-33 08/4/26(土) 18:32 質問
【55303】Re:ダイアログの表示方法 neptune 08/4/26(土) 18:59 発言
【55304】Re:ダイアログの表示方法 aki-33 08/4/26(土) 20:03 質問
【55305】Re:ダイアログの表示方法 n 08/4/26(土) 20:27 発言
【55306】Re:ダイアログの表示方法 aki-33 08/4/26(土) 20:31 質問
【55307】Re:ダイアログの表示方法 n 08/4/26(土) 20:57 発言
【55308】Re:ダイアログの表示方法 neptune 08/4/26(土) 22:20 発言
【55309】Re:ダイアログの表示方法 neptune 08/4/26(土) 23:12 回答
【55311】Re:ダイアログの表示方法 n 08/4/26(土) 23:34 発言
【55316】Re:ダイアログの表示方法 neptune 08/4/27(日) 11:00 発言
【55314】Re:ダイアログの表示方法 aki-33 08/4/27(日) 9:37 質問
【55317】Re:ダイアログの表示方法 neptune 08/4/27(日) 11:14 回答
【55319】Re:ダイアログの表示方法 aki-33 08/4/27(日) 16:19 お礼
【55313】Re:ダイアログの表示方法 SS 08/4/27(日) 7:55 発言

26750 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free