| |
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 → 高さか幅が０なので見えない
数はあっている → 非表示になっている
です。
わからなかったら、イミディエイトに表示された結果を貼ってみてください。
|
|
りん
- 07/5/27(日) 6:41 -
