|
▼SK63 さん:回答ありがとうございます。
>明確でないのですが、
>Worksheets(1).Shapes(Memo(1)).Left = 45
>のような、オートシェイプやグラフを使用したときに
>動作が遅いとか、動作が停止したりすることがありました。
私は動作が遅いとか停止したと感じたことはありませんね。
>また、オートシェイプには、Application.ScreenUpdating = False
>は有効ではなかった記憶がありますので
そうなのですか?
それは知りませんでした・・・
> Application.ScreenUpdating = False
> Worksheets(1).Shapes(Memo(1)).Top = 67.5 '決められたカードの位置を変更する
> Worksheets(1).Shapes(Memo(1)).Left = 45
> Application.ScreenUpdating = False
>
>この当たりをとりあえずコメントアウトして動作させると確認できると思います。
>
>オートシェイプは目ではエクセル上にありますが重なるように別に構成されています。
はい。
そのあたりをコメントアウトしてみても、やはり質問の症状が出てきてしまいますね・・・
ということは、半分あきらめるしかないのでしょうか?
|
|