| |
りんさん
MKTです。
大変勉強になります。デバックという手法自体が
理解できず、またイミディエイトウィンドウというのも
初めて開きました。重ねて感謝です。ありがとうございます。
ところで標準ﾓｼﾞｭｰﾙで実行したところ、Debag.Printのところで
エラー1004がでてしまいました。
下記はその時点でのイミディエイトウィンドウのコピーです。
なにか不都合な部分ありましたらご指摘頂きたく。
お忙しいところ申し訳ないのですが、ご教示ください。
Button 161 C2 H:18 W:68.25
Button 586 D2 H:18.75 W:66
Button 161 C2 H:18 W:68.25
Button 586 D2 H:18.75 W:66
▼MKT さん：
>りんさん
>
>ご回答ありがとうございます。初心者が
>仕事の煩雑さに嫌気がさし、半年かけて
>作成したマクロでつぎはぎだらけです。
>
>書いた質問自体もわかっていただける方は
>いないものと半分あきらめておりました。
>明日会社でためしてみます。
>ありがとうございます。
>
>
>▼りん さん：
>>MKT さん、おはようございます。
>>>ｵｰﾄﾌｨﾙﾀｰを解除すると全く動きに関与しない見積書作成
>>>マクロのみ自然に消えてしまいます。
>>
>>本当に無くなっているわけではなく、見えないだけか高さか幅が０になっている可能性もあるので、下のコードを実行して、イミディエイトウィンドウで内容を確認してみてください。
>>Sub test()
>> Dim sh As Shape
>> For Each sh In Application.ActiveSheet.Shapes
>> With sh
>> Select Case .Type
>> Case 8, 12
>> Debug.Print .Name; vbTab; .TopLeftCell.Address(False, False); vbTab; "H:" & .Height; vbTab; "W:" & .Width
>> End Select
>> End With
>> Next
>>End Sub
>>結果が表示されて、
>> 数が足りない → 消えている
>> HまたはWの数値が0 → 高さか幅が０なので見えない
>> 数はあっている → 非表示になっている
>>です。
>>
>>わからなかったら、イミディエイトに表示された結果を貼ってみてください。
|
|
MKT
- 07/5/28(月) 9:40 -
