Word VBA質問箱 IV

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

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


13 / 288 ツリー ←次へ | 前へ→

【58】画像の貼り付けについて 奥山 03/6/5(木) 13:45 質問[未読]

【789】Re:画像の貼り付けについて マナ 13/6/15(土) 22:48 発言[未読]

【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

13 / 288 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
192867
(SS)C-BOARD v3.8 is Free