Excel VBA質問箱 IV

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

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


26754 / 76738 ←次へ | 前へ→

【55313】Re:ダイアログの表示方法
発言  SS  - 08/4/27(日) 7:55 -

引用なし
パスワード
   ▼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

1 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 発言

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