Word VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

122 / 886

←次へ　｜　前へ→


	【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

1,129 hits

▼

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