| |
▼ichinose さん：
>▼mame さん：
>こんにちは。
>
>>ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
>> Range("H56).Left, _
>> Range("H56).Top + 4.5, _
>> Range("H56).Width + 123, _
>> Range("H56).Height - 4.5).Select
>>
>>このように書きました。
>>長さ(Width)は100％で123です。
>>50%の時に単純に、123/2 としたのですが
>実際の50%のときのコードも提示してください。
>因みに上記のコードだとセルH56のセル幅によって
>作成される図形のWidthの大きさも違ってきますよね？
そうですね、セルの幅によって変わってしまうんですね。
どういう書き方が良いのでしょうか？
アドバイスをお願いします
>
>
>>実際図をクリックすると、100%のときに6.24cm 50%の時に61.5cmと
>>うまくいきません。
>こういう記述はいけません。
>本来なら、ｘｘｘｘという結果にしたいのに
>ＹＹＹＹという結果にしかなりません。
>というようなハッキリした記述をして下さい。
>>ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
>> Range("H56).Left, _
>> Range("H56).Top + 4.5, _
>> Range("H56).Width + 61.5, _
>> Range("H56).Height - 4.5).Select
50％の時は、Widthを半分にして、123/2 で +61.5 としました。
そしたら、図のサイズは100％のときに6.24cmだったので
50％の時は3.12cmを期待していたのですが
4.07cmになってしまいました。
|
|
mame
- 06/1/7(土) 16:56 -
