|
質問させてください。
最近、デジカメや記録媒体の性能がどんどん上がってきています。
それに伴い、写真のサイズを気にせずにエクセルブックにべたべた貼り付ける人もどんどん増えていきます。で、『サーバーが一杯になっちゃんですけど〜』って言われます。 見てみるとエクセルブックが、21MBを最大に5MBクラスがうじゃうじゃいます。
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
こんなの造って見ましたけど、もっとかっこよいコードのアドバイスをお願いします。
図のコピー⇒貼り付け⇒図の微調整⇒オリジナル図の削除
のコードです。
|
|