|
>.Left = ActCell2.Left + 12
この12というのがセル枠からのマージンだと解釈して、
Dim n As Single 'マージン用
Dim x As Double '比率。縦横どちらか小さい方
上記変数2つ追加し、
n = 12
>For Each Acell In .Range("A1", .Range("A65536").End(xlUp))
>:
With .Pictures.Insert(画像ファイル名)
With .ShapeRange
.LockAspectRatio = msoTrue
.Left = ActCell2.Left + n
.Top = ActCell2.Top + n
x = Application.Min((ActCell2.Width - n * 2) / .Width _
, (ActCell2.Height - n * 2) / .Height)
'Width|Heightは.ShapeRangeに対して変更しないと _
LockAspectRatioプロパティが効果ない...と思います
.Height = .Height * x
.AlternativeText = 画像ファイル名
End With
.Placement = xlMove
.PrintObject = True
End With
>:
#余談:『享受』は違...
|
|