いくつもの図が貼られているpptやwordのファイルが重い場合の話なのです.このファイルを軽くしようと,どの図が重いのかを探し出したい時があります.一個一個消して,プロパティでファイルの重さを調べて,やっと重い図を見つけて軽い形式に直す,というようなことをしています.もっと簡単な方法はないでしょうか.毎回プロパティーを表示させるだけでも結構面倒で,どこかに今のファイル容量をリアルタイム表示させておくだけでも助かるのですが.または,各図がどのくらいの容量なのかが分かるといいのですが.どうでしょうか.宜しくお願いします.
A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
#4です。
自分のメモのために。pptの開いてるページのshapeを調べて、容量が大きそうなshapeを新規ページに貼り付けるマクロを作りました。#4と併せると大きなshapeが特定できると思います。
あと、「高速保存」のチェックははずす。図の圧縮オプションで、対象:「ドキュメント内の全ての図」、解像度:「Web/画面」が選べます。
Sub pptShapeAna()
'開いてるページのshapeを調べ、新規ページに貼り付ける
Dim tmpPresen, orgPresen As Presentation
Dim c, CurrSlide As Long
Dim sp As Shape
Dim str, tmpName As String
Dim n, x
Set orgPresen = ActivePresentation
CurrSlide = ActiveWindow.Selection.SlideRange.SlideNumber
Set tmpPresen = Presentations.Add(WithWindow:=msoFalse)
c = 0: tmpName = "d:\Temp\test_pptShapeAna.ppt"
For n = 1 To orgPresen.Slides(CurrSlide).Shapes.Count
Set sp = orgPresen.Slides(CurrSlide).Shapes(n)
sp.Select: x = 0
Select Case sp.Type
Case msoAutoShape: str = "オートシェイプ"
Case msoGroup: str = "グループ": x = 1
Case msoEmbeddedOLEObject: str = "OLE": x = 1
Case msoLine: str = "ライン"
Case msoLinkedPicture: str = "画像": x = 1
Case msoPlaceholder: str = "プレースホルダ"
Case msoTextEffect: str = "WardArt"
Case msoMedia: str = "メディア": x = 1
Case msoTextBox: str = "テキストボックス"
Case msoTable: str = "テーブル": x = 1
Case Else: str = "その他"
End Select
MsgBox ("番号:" & n & " タイプ:" & sp.Type & " " & str)
If x > 0 Then
sp.Copy: c = c + 1
tmpPresen.Slides.Add Index:=c, Layout:=ppLayoutBlank
tmpPresen.Slides(c).Shapes.Paste
End If
Next n
tmpPresen.SaveAs tmpName
tmpPresen.Close
End Sub
No.4
- 回答日時:
私も同じようなことで悩むことがあります。
図ごとではなくてページごとですが、pptの容量を表示するマクロはどうでしょう?異常に大きいページを絞れるかと。
ドラッグ&ドロップで図を貼ると圧縮が効かない場合があるようですので、いったんカットしてから形式を選択して貼り付けると#3さんの方法で小さくなるかもしれません。
Sub pptPageSize()
Dim tmpPresen, orgPresen As Presentation
Dim s, tmpName As String
Dim fso, f, n, kb
Set orgPresen = ActivePresentation
Set tmpPresen = Presentations.Add
tmpName = "D:\Temp\test_pptPageSize.ppt"
Set fso = CreateObject("Scripting.FileSystemObject")
For n = 1 To orgPresen.Slides.Count
orgPresen.Slides(n).Copy
tmpPresen.Slides.Paste
tmpPresen.SaveAs tmpName
Set f = fso.GetFile(tmpName)
kb = f.Size / 1024
s = s & "p." & n & " : " & Format(kb, "####") & vbCrLf
tmpPresen.Slides(1).Delete
Next
MsgBox s, 0, "ページのサイズ(kbyte)"
tmpPresen.SaveAs FileName:=tmpName
tmpPresen.Close
fso.GetFile(tmpName).Delete
Set fso = Nothing
End Sub
No.2
- 回答日時:
市販ソフトを使うならNXPowerLite
http://www.nxpowerlite.jp/
アバウトでよければ、こういったサードパーティのソフトを使わず、標準機能で圧縮。
PowerPointで例にとると。保存で左上の「ツール」から画像の圧縮。
200dpiしか設定できませんが、それで十分なら。
こんな方法も
http://office.microsoft.com/ja-jp/powerpoint/HA0 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Android(アンドロイド) Aloha Browser でダウンロードしたファイルをPCに転送するには? 1 2022/05/23 18:54
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- Word(ワード) Word 大学のレポートをWordで書いて提出したんですけど、提出したものを見るとWordファイルの 4 2022/04/17 18:00
- 画像編集・動画編集・音楽編集 inkscapeで作成した図の保存の仕方とその保存したファイルの編集の仕方 1 2022/09/22 09:33
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- その他(Microsoft Office) OneDrive Personalについて 1 2022/08/02 18:25
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Windows 10 PCを開くと以前とことなり図のように(右)かつてフォルダで表示されてたのがされなくなった?? 1 2022/10/22 14:00
- その他(IT・Webサービス) サイト上のフォルダ階層一覧、ファイル一覧を閲覧する方法は? 1 2022/11/11 15:49
- Word(ワード) PCで作ったwordをスマホで編集しようとすると「このファイルは読み取り専用です。」と表示される。 3 2023/05/30 14:51
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
[Tex] 図を通し番号で表示する
-
図のリンク貼り付けが出来ない・・
-
この図を参照してください。 こ...
-
tex 図のCaptionを中央揃えにし...
-
スキャンした文書をエクセルデ...
-
半透明をPDFにすると真っ黒に塗...
-
透視図の考え方がよくわかりま...
-
図のリンク貼り付けを行うと・・・
-
Doxygenでソースコード内のコメ...
-
エクセル2007 シート内の表を...
-
LaTeXでのcaptionの位置
-
pptやwordに貼り付けた図が重い...
-
TeXで図(a),(b)を縦に並べる方法
-
ワードで目次機能を使うと図が...
-
下記の図の高域遮断周波数はど...
-
LaTeXにPDFの図を挿入する方法
-
ベクターワークスのデモ版をwin...
-
名前を付けて保存した図をExcel...
-
エクセルのカメラ機能
-
エクセルで図形をきれいに真上...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
図のリンク貼り付けが出来ない・・
-
【エクセル・カメラ機能】貼り...
-
図として保存(JPG)した中...
-
文章中の『図1』や『表1』の...
-
【Excel】挿入した図の上に文字...
-
Excelで[図のリンク貼り付け]を...
-
[Tex] 図を通し番号で表示する
-
LaTeXでのcaptionの位置
-
マクロ 最終行のセルに移動した...
-
ワードにある図だけがPDF化でき...
-
エクセルのカメラ機能
-
リンクされた図のあるエクセル...
-
TeXでPNGを取り込むとPDFの図に...
-
図のリンク貼り付けを行うと・・・
-
tex 図のCaptionを中央揃えにし...
-
エクセルの貼り付け「リンクさ...
-
Word VBA 表内の図を一括中央揃...
-
エクセルの散布図の近似式の係...
-
Tex 図番号
-
wordで画像の下に出典を書いて ...
おすすめ情報