| |
>.Left = ActCell2.Left + 12
この12というのがセル枠からのマージンだと解釈して、
Dim n As Single 'マージン用
Dim x As Double '比率。縦横どちらか小さい方
上記変数２つ追加し、
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
>：
#余談：『享受』は違...
|
|
n
- 08/5/21(水) 16:49 -
