Excel VBA質問箱 IV

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

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


26769 / 76738 ←次へ | 前へ→

【55298】ダイアログの表示方法
質問  aki-33  - 08/4/26(土) 12:19 -

引用なし
パスワード
   下記の記述のようにフォルダーを指定して写真を貼り付けるマクロを作成したのですが、ダイアログの表示(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

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

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