エクセル 図の挿入のファイルの指定

質問

いつもに皆様にはお世話になっております。
さてエクセルにしろワードにしろ図を挿入するとき、ファイルの呼び出しが１回目は指定のファイル（私の場合はマイピクチャー）が開いて、２回目の挿入のときは、先ほど開いたファイルが開きますけど、１回目の指定のファイルを変更することは可能ですか？
可能ならご教授下さい。
よろしくお願いします。

回答No.1

pauNed · ベストアンサー

こんにちは。
>図の挿入のファイルの指定
最初に開く『フォルダ』の指定…という事でしょうか。
「図の挿入」ダイアログについて、一般機能の設定方法は知らないのですが、
マクロでの指定で良ければ、ChDrive/ChDir で指定できます。
その場合は GetOpenFilename を使う事になりますが。

Sub sample()
Dim pic As Variant '画像ファイル名セット用の変数を準備（キャンセル処理用にVariant型）
ChDrive "C" 'カレントドライブを設定■※必要に応じて変更してください。
ChDir "C:\temp" 'カレントフォルダを設定■※必要に応じて変更してください。

'「ファイルを開く」ダイアログを表示
pic = Application.GetOpenFilename _
("画像ファイル (*.jpg;*.bmp;*.gif), *.jpg;*.bmp;*.gif", , "図の選択")

'キャンセル以外に以下処理をする
If VarType(pic) <> vbBoolean Then

'画面更新一時停止
Application.ScreenUpdating = False

'アクティブなシートに画像ファイルを挿入
With ActiveSheet.Pictures.Insert(pic)
'.Width = 100'サイズ指定用
'.Height = 100'サイズ指定用
End With

'画面更新再開
Application.ScreenUpdating = True

End If

End Sub

わからないところは補足でご質問下さい。できる範囲でご説明します。

お礼

早速の回答痛み入ります。
もうパニックになりそうですが、後日チャレンジしてみます。

回答No.3

misatoanna

以前にも同じような内容のご質問がありました。

> ２回目の挿入のときは、先ほど開いたファイルが開きますけど、
最初の１回だけの指定で済むことですので、特に支障は感じないと思うのですが。

でも、My Picture　から求めるディレクトリにたどり着くまで難儀だということ
なのでしたら、マクロ利用か次のような方法になってしまうでしょうね。

必ず開いてしまう　My Picture　内に、開きたいフォルダへのショートカットを
置いておけば、ダブルクリックで目的のフォルダに飛ぶので便利です。

以前の同様のご質問にもこのようにお答えしましたが、お気に召されなかったよう
で‥‥　^_^;

お礼

皆さんありがとうございました。
無理ということがわかりました。

回答No.2

imogasi

図の挿入の「ファイルから」のダイアログウインドウで、「ファイルの場所」とファイルを指定するでは、どこに不便を感じているのでしょうか。毎回別のフォルダ・別のファイルを指定するのは面倒ですが、別のフォルダに入れている以上、別ホルダを指定するほかない。VBAでやるにしても、指定せざるを得ないと思いますが。