|
りん さん 昼休み中ですか?
貴重な時間をさいて頂いてありがとうございます。
なるほどです、一回リセットすればよかったんですね。
ぜんぜん思いつきませんでした。今後は頭をやわらかくすることも考えます。
Erase をはじめてみたので チョットヘルプを見てみました。
様は、リセットしておく と考えればよいですね。
(ヘルプはもうチョット書き方を考えてほしい。頭の弱い40+にはわかりづらい)
現在ここまできています。
Sub MyPic_Compression()
Dim Pic As Object
Dim Pic_T As Double
Dim Pic_L As Double
For Each Pic In ActiveSheet.Pictures
With Pic
Pic_T = .Top
Pic_L = .Left
.ShapeRange.LockAspectRatio = True
.Cut
.Parent.PasteSpecial Format:="Jpeg"
End With
Application.CutCopyMode = False
With Selection
.Top = Pic_T
.Left = Pic_L
End With
Next
End Sub
後は、写真の前後関係をやっていきます。
>「元のサイズを基準にする」にチェックがついていない状態で加工されていれば偽装されちゃいますけどね(ダイアログでは原型のサイズで確認できます)
本当ですか! 今確認したんですけど、チェックをはずしてサイズの変更して
(原型サイズのダイアログ値は変わらず)リセットしたら、基の大きさになりました。
|
|