| |
りんさん
ご回答ありがとうございます。初心者が
仕事の煩雑さに嫌気がさし、半年かけて
作成したマクロでつぎはぎだらけです。
書いた質問自体もわかっていただける方は
いないものと半分あきらめておりました。
明日会社でためしてみます。
ありがとうございます。
▼りん さん：
>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(月) 0:43 -
