|
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
に変えてみました。
他に画像の質を上げる方法ってありますか?
また、こちらは余白について問題がありませんでした。
|
|