| |
Jakaさんへ
ありがとうございます！
何を書いてあるか理解するのに時間がかかってしまい、返事が遅れてしまいました＾＾；すいません。
試してみたところ、動きました！
ただ、保存したデータをもう一度Excelに貼り付けて印刷したところ、
質が荒くなってしまったので、
> With Sheets("Sheet1").Shapes(名)
> Rgh = Sheets("Sheet1").Shapes(名).Height + 7
> Rgw = Sheets("Sheet1").Shapes(名).Width + 7
> .CopyPicture Format:=xlBitmap
> End With
を
With Sheets("Sheet1").Shapes(名)
Rgh = Sheets("Sheet1").Shapes(名).Height
Rgw = Sheets("Sheet1").Shapes(名).Width
.CopyPicture appearance:=xlScreen, Format:=xlPicture
End With
に変えてみました。
他に画像の質を上げる方法ってありますか？
また、こちらは余白について問題がありませんでした。
|
|
よね
- 06/11/17(金) 14:58 -
