Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
31 / 306 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【58】画像の貼り付けについて 奥山 03/6/5(木) 13:45 質問[未読]
【788】Re:画像の貼り付けについて マナ 13/6/15(土) 21:24 発言[未読]
【789】Re:画像の貼り付けについて マナ 13/6/15(土) 22:48 発言[未読]
【788】Re:画像の貼り付けについて
発言  マナ  - 13/6/15(土) 21:24 -
引用なし
パスワード
   Word2010だとコマンドマクロにこんなのがあります。
使えそうなのですが、使い方がわかりませんでした。

DrawCompressPictures（図の圧縮）
【789】Re:画像の貼り付けについて
発言  マナ  - 13/6/15(土) 22:48 -
引用なし
パスワード
   んー。なんでコマンドマクロ使えないんでしょうか。
その上、図の圧縮はマクロ記録でも記録されないみたいです。

検索したらSendKeysを使ってる例がありました。
ht tp://www.vbaexpress.com/forum/showthread.php?t=34017

図の挿入マクロを、このマクロとつなぎ合わせれば、とりあえずですが出来そう。
こんな感じ。

Sub test()
　　
　　With Dialogs(wdDialogInsertPicture)
　　　　.Display
　　　　If .Name = "" Then Exit Sub
　　　　ActiveDocument.InlineShapes.AddPicture _
　　　　　　FileName:=.Name, _
　　　　　　Range:=Selection.Range
　　End With
　　
　　With Application.CommandBars.FindControl(ID:=6382)
　　　　SendKeys "%A%W{Enter}"
　　　　.Execute
　　End With

End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
31 / 306 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
206491
(SS)C-BOARD v3.8 is Free