Excel VBA質問箱 IV

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

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


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

37432 / 76732

←次へ　｜　前へ→


	【44466】Re:スキャナー画像を保存したい

Jaka - 06/11/17(金) 14:13 -


	引用なし

	パスワード

他の方法はわかりません。
また、余白を完全に取り去るには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

1 hits

▼

【44463】スキャナー画像を保存したい よね 06/11/17(金) 12:20