[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『画像挿入』(素人でごめんなさい)
画像を挿入するマクロをエクセル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 は使ったことがなかったのですが、ローカルに加えてオンラインも選択肢にしようとしているようですね。 エクセルの『小さな親切、大きなお世話』の1つ? (でもオンラインからの抽出をやりたい人もいるので、『大きなお世話』ともいえませんね。)
xlDialogInsertPicture の引数として ローカルのみ というものが指定できればいいのですが、できませんね。
ふつうに GetOpenFileName で拡張子をたくさん設定して、選択させてはいかがですか? 初期ディレクトリーをセットして、エクスプローラを小さなアイコン表示にしておけば、xlDialogInsertPictureと似通った画面になると思います。
(β) 2016/05/28(土) 21:49
Sub test() Application.CommandBars.ExecuteMso ("PictureInsertFromFile") Application.CommandBars.ExecuteMso ("ClipArtInsertDialog") End Sub
(マナ) 2016/06/03(金) 22:39
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.