[[20160528202613]]　『画像挿入』（素人でごめんなさい）　ページの最後に飛ぶ

『画像挿入』（素人でごめんなさい）

画像を挿入するマクロをエクセル2003で使用していましたが、
エクセル2013で使用すると
「オンライン画像を挿入するにはインターネット接続が必要です」の
メッセージが表示されます。オフラインを選択すると問題はないのですが、
インターネットの環境のないパソコンで使用するので、
メッセージがでないようにしたいのですが、どのようにすると良いのか教えてください。
どなたかご教示お願い申し上げます。

Sub 画像()

  Application.Dialogs(xlDialogInsertPicture).Show
  If TypeName(Selection) = "Picture" Then
  　Selection.Locked = False
 　 Selection.ShapeRange.ZOrder msoSendToBack
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = ActiveCell.MergeArea.Height
  End If
 End Sub

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 xlDialogInsertPicture は使ったことがなかったのですが、ローカルに加えてオンラインも選択肢にしようとしているようですね。
 エクセルの『小さな親切、大きなお世話』の１つ？
 （でもオンラインからの抽出をやりたい人もいるので、『大きなお世話』ともいえませんね。）

 xlDialogInsertPicture の引数として　ローカルのみ　というものが指定できればいいのですが、できませんね。

 ふつうに GetOpenFileName で拡張子をたくさん設定して、選択させてはいかがですか？
 初期ディレクトリーをセットして、エクスプローラを小さなアイコン表示にしておけば、xlDialogInsertPictureと似通った画面になると思います。

（β） 2016/05/28(土) 21:49

早速ありがとうございます。
「ローカルのみ」または「メッセージを表示させない」ことを指定することはできないのですね。
エクセル2013のコマンドボタンに「画像」「オンライン画像」の２つがあるので、
何かできるかな？と思っておりました。
GetOpenFileName を使用するのが一般的なのですね。知らなかったです。
これをきっかけに一般的なマクロに作り直しを考えてみます。
（素人でごめんなさい） 2016/05/28(土) 22:54

他所の掲示板の質問眺めていてヒントいただきました

 Sub test()
    Application.CommandBars.ExecuteMso ("PictureInsertFromFile")
    Application.CommandBars.ExecuteMso ("ClipArtInsertDialog")
 End Sub

（マナ） 2016/06/03(金) 22:39

コメント返信：

[ 一覧(最新更新順) ]

[[20160528202613]] 『画像挿入』（素人でごめんなさい） ページの最後に飛ぶ

[[20160528202613]]　『画像挿入』（素人でごめんなさい）　ページの最後に飛ぶ