No.1ベストアンサー
- 回答日時:
>sendkeysで%{i}{p}{f}
はDialogInsertPictureダイアログを開くためのコマンドですね。
コモンダイアログのカレントフォルダ規定値は変えられないと思いますが、GetOpenFilenameを利用すれば可能です。またWindowsAPIでカレントフォルダをネットワークドライブに設定できます
以下のマクロはネットワークパスの画像ファイルをシートに挿入するサンプルですので試してみてください。GetOpenFilenameとDialogInsertPictureは選択したファイル名が表示される/されないという違いがありますが、それほど違和感はないと思います
Declare Function SetCurrentDirectory Lib "kernel32" Alias _
"SetCurrentDirectoryA" (ByVal CurrentDir As String) As Long
Sub Macro1()
SetCurrentDirectory ("\\abcde\Images") 'ネットワークパスを指定
res = Application.GetOpenFilename("画像 (*.jpg; *.gif; *.bmp), _
*.jpg; *.gif; *.bmp", , "画像の挿入")
If TypeName(res) <> "Boolean" Then
ActiveSheet.Pictures.Insert (res)
End If
End Sub
この回答へのお礼
お礼日時:2008/02/22 02:26
丁寧な回答を頂き感謝いたします。
しかしながら私の脳みそではzap35さんのおっしゃる事がよく理解できません。
そんな訳でサンプルをそのまま使わせて頂きました、どうもありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/03/31 12:46
- Excel(エクセル) マクロの付いたExcelが開けません 3 2023/02/01 10:54
- Excel(エクセル) excelのマクロ実行でブロックされます。 2 2022/06/08 09:14
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/11 11:47
- Excel(エクセル) Excel VBA 3 2023/04/22 10:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 12:30
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
EXCELのセルへ、デジタル時計を...
-
複数ファイルにある特定のシー...
-
Excelのワークシート上に検索窓...
-
Excel VBA のdebug(F8キー) が...
-
マクロ 実行ボタンを押さずに...
-
エクセル ピボットテーブルの...
-
エラーになってないのにVBA...
-
Excelを開いた時に表示さ...
-
エクセル グラフの軸の最小値最...
-
Excelの改ページ 同シート内で...
-
ワードからエクセルへ貼り付け...
-
Wordで「原稿用紙○枚」を換算す...
-
Excel2000 データの並べ替えで...
-
エクセルに画像を貼付け縮小す...
-
Excel文字列中の太字(Bold)部分...
-
【Excel VBA】エラー番号400
-
マクロ実行後元に戻すことは
-
エクセルで複数のシートをまと...
-
Excelのマクロを実行中に、ダウ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
複数ファイルにある特定のシー...
-
EXCELのセルへ、デジタル時計を...
-
Excel VBA のdebug(F8キー) が...
-
エラーになってないのにVBA...
-
Excelを開いた時に表示さ...
-
Wordで「原稿用紙○枚」を換算す...
-
ワードからエクセルへ貼り付け...
-
エクセルで複数のシートをまと...
-
エクセルのマクロ機能で前のシ...
-
エクセル グラフの軸の最小値最...
-
TeraTermのマクロについて
-
Excelの改ページ 同シート内で...
-
EXCEL 複数のシートの同一の位...
-
ワードで画像を自動で挿入する方法
-
Excelのワークシート上に検索窓...
-
モジュール内のマクロを全て実...
-
Excel2000 データの並べ替えで...
-
Excelマクロでオプションボタン...
おすすめ情報