|
他の方法はわかりません。
また、余白を完全に取り去るにはAPIを使うらしいです。
どこかのサイトで見かけたけど、どこだったかは覚えてません。
こんなことをしなくても、2002以上だとファイルで保存できるらしいけど、
やり方がわかりませんでした。
Sub 画像の保存()
Dim Cht As Chart
Dim Rgw As Single, Rgh As Single
Dim MRng As Range, 挿入 As Object
'図形インサート
Set 挿入 = ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Jaka\My Documents\My Pictures\サンプル.jpg")
名 = 挿入.Name
With Sheets("Sheet1").Shapes(名)
'ここで少しでも余白を消そうとしているんですが、
'うまく余白が取れません
Rgh = Sheets("Sheet1").Shapes(名).Height + 7
Rgw = Sheets("Sheet1").Shapes(名).Width + 7
.CopyPicture Format:=xlBitmap
End With
With ActiveSheet.ChartObjects.Add(0, 0, Rgw, Rgh).Chart
.Paste
.ChartArea.Border.LineStyle = 0
.Export ThisWorkbook.Path & "\保存ファイル.jpg"
.Parent.Delete
End With
End Sub
|
|