|
nagopa さん、おはようございます。
>Excel VBAの中で、図形描画ツールバーにある「オブジェクトを選択」ボタンの状態をコントロールしたいのですが、方法をご存知の方教えてください。
>困っていることは、マクロの起動時に「オブジェクトを選択」になっていると、PageSetupのPrintAreaの設定がエラーになってしまうことです。次のようなコードです。
> .PrintArea = pg.PrintArea '★ここでエラーになる
Worksheets(1)の印刷範囲を設定した後で、図形を適当に配置後選択してから、以下を実行しました。
Sub test()
Worksheets(2).PageSetup.PrintArea = _
Worksheets(1).PageSetup.PrintArea
End Sub
エラーになりませんでした。(XL2000 & Win98)
>Excelで操作しても、「オブジェクトを選択」状態では、印刷範囲の設定をメニューで選べないので、「オブジェクトを選択」を解除する必要があるのだろうと思います。
>よろしくお願いします。
これは、セル範囲が選択されていないからです。
ページ設定で手動で範囲入力が可能なので、別のエラーかもしれません。
ちなみに、オブジェクトの選択を解除するには、セルを選択すればいいです。
ただし、選択するにはそのオブジェクトがあるシートをアクティブにする必要があります。
Sub test()
Worksheets(1).Activate 'オブジェクトが選択されているシートを表示
ActiveCell.Activate 'セルを選択
End Sub
です。
|
|