Word VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
33 / 308 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【58】画像の貼り付けについて 奥山 03/6/5(木) 13:45 質問[未読]
【60】Re:画像の貼り付けについて らいでん 03/6/7(土) 1:07 発言[未読]
【788】Re:画像の貼り付けについて マナ 13/6/15(土) 21:24 発言[未読]
【789】Re:画像の貼り付けについて マナ 13/6/15(土) 22:48 発言[未読]
【58】画像の貼り付けについて
質問  奥山  - 03/6/5(木) 13:45 -
引用なし
パスワード
   初歩的な質問ですいません。
ワードにjpg形式のデジカメの写真を貼り付けると容量が大きくなりすぎて困ってます。
（一つの文書に写真は、約30枚はりつけます。）
容量を小さくして貼り付ける方法はあるのでしょうか？
【60】Re:画像の貼り付けについて
発言  らいでん  - 03/6/7(土) 1:07 -
引用なし
パスワード
   ▼奥山 さんへ：
投稿先を間違われたのでしょうか？
ここVBA掲示板なのです。
では。
【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
33 / 308 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
207159
(SS)C-BOARD v3.8 is Free