Word (VBA)

Word VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Home : Word 2013)
Wordでピクチャを開くマクロ
投稿日時: 17/01/29 13:59:22
投稿者: K.n

はじめまして、Wordでピクチャを開くマクロ文字をご教授ください。K.n

回答
投稿日時: 17/01/30 15:17:17
投稿者: WinArrow
投稿者のウェブサイトに移動

「マクロの記録」という機能があります。
 
「開発」タブの中の「マクロの記録」ボタンをクリックしてから
「挿入」タブの中の「図形」をクリックして、任意の画像ファイルを取り込みます。
最後に「マクロの記録終了」をクリックすれば
標準モジュールに作成されています。
 
作成されたコードは、今回取り込んだ画像ファイルのみのコードですので、
ファイル名のところを、どのようにするかを考えましょう。
 
文書のどこかに画像ファイル名があるならば、それを指定できるようにする・・・とか
フォルダを開いて、画像ファイルを選択するようにする・・・・とか
 
このあたりは、あなたが考えることです。
 

回答
投稿日時: 17/04/18 06:07:34
投稿者: i-brown

放置されている質問だと思いますが、念のため。
FileDialogのfilterはGoogleで検索するなりして適当に設定してください。
 

Option Explicit

Public Sub Test()
    Dim dlg As FileDialog: Set dlg = Application.FileDialog(msoFileDialogOpen)
    dlg.AllowMultiSelect = False

    dlg.Show
    If dlg.SelectedItems.Count = 0 Then Exit Sub
    
    Shapes.AddPicture dlg.SelectedItems(1)
End Sub

トピックに返信