Excel VBA質問箱 IV

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

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


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

15023 / 76734

←次へ　｜　前へ→


	【67196】ブックのサイズを縮小する

Abebobo - 10/11/15(月) 10:30 -


	引用なし

	パスワード

質問させてください。

最近、デジカメや記録媒体の性能がどんどん上がってきています。
それに伴い、写真のサイズを気にせずにエクセルブックにべたべた貼り付ける人もどんどん増えていきます。で、『サーバーが一杯になっちゃんですけど～』って言われます。　見てみるとエクセルブックが、２１MBを最大に５MBクラスがうじゃうじゃいます。

Sub 写真軽量()

Dim ShP As Object
Dim New_ShP As Object
Dim ShP_top As Double
Dim ShP_left As Double
Dim Tar_WB As Workbook

Set Tar_WB = ActiveWorkbook

With Tar_WB

　For Each ShP In .ActiveSheet.Shapes
　　If ShP.Type = 13 Then
　　　Debug.Print ShP.Type
　'　　ShP.Select
　'　　Stop
　　　ShP_top = ShP.Top
　　　ShP_left = ShP.Left
　　　ShP.CopyPicture Appearance:=xlScreen, Format:=xlPicture
　　　ShP.TopLeftCell.Select
　　　Set New_ShP = ActiveSheet.Pictures.Paste
　　　New_ShP.Top = ShP.Top
　　　New_ShP.Left = ShP.Left
　　　ShP.Delete
　　End If
　
　Next
End With

End Sub

こんなの造って見ましたけど、もっとかっこよいコードのアドバイスをお願いします。

図のコピー⇒貼り付け⇒図の微調整⇒オリジナル図の削除
のコードです。

2 hits

▼

【67196】ブックのサイズを縮小する Abebobo 10/11/15(月) 10:30

≪