|
つまり、100%の半分のスケールを50%にしたいということですね
>>
>>>ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
>>> Range("H56).Left, _
>>> Range("H56).Top + 4.5, _
>>> Range("H56).Width + 123, _
>>> Range("H56).Height - 4.5).Select
>>>
>>>ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
>>> Range("H56).Left, _
>>> Range("H56).Top + 4.5, _
(Range("H56).Width + 123)/2, _
>>> Range("H56).Height - 4.5).Select
ですよね?
正確には、
Int((Range("H56").Width + 123) / 0.75) * 0.75
が100%のWidthで
Int((Range("H56").Width + 123) / 2 / 0.75) * 0.75
が50%のWidthですが・・・。
ポイントは0.75単位ですから。
|
|