Word VBA質問箱 IV

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

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


12 / 287 ツリー ←次へ | 前へ→

【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

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