Excelオブジェクトの操作

質問

お世話になっております。
二つどなたかご教授下さい。
VB6.0を使用しExcelオブジェクトにデータを吐き出す単純なロジックを作成しております。
この際、Excelオブジェクトをいろいろ操作しているのですが、２つわからない事があります。
一つは、Excelの操作で、「表示」→「ズーム」を70％にする記述。
もう一つは、「ツール」→「オプション」→枠線のチェックを外す(つまり枠線非表示にする)方法。
これらの作業をVB上でワークシートオブジェクトを操作して行う方法をご教授下さい。
マクロでこれらの動作を一旦記録し、そのロジックをいろいろ加工してみてもだめでしたm(__;)m。

回答No.1

hiroaki_0 · ベストアンサー

ActiveWindow.Zoom = 70
ActiveWindow.DisplayGridlines = false
ですよね？

「だめでした」とは、どんなコードを書いて、どんなエラーが出たのでしょうか？

補足

hiroaki_0さん。お返事ありがとうございます。

objWs → ワークシートオブジェクト

objWs .Zoom = 70
objWs .DisplayGridlines = false

↑上記のようにいろいろと組み合わせて実行してはみたのですが、コンパイル時に
「DisplayGridlines はサポートされていません」
・・のようなメッセージが出てしまいます・・。

他に何か記述方法があるのでしょうか？

回答No.4

imogasi

ＺＯＯＭ、DisplayGridlinesプロパティまでわかっていながら、こうなったのは、
Ｏｂｊｅｃｔ．プロパテイ
Ｏｂｊｅｃｔ．メソッド
の、Ｏｂｊｅｃｔ（オブジェクト）を確かめる癖をつけないとダメです。
ハンドブックなどには必ず、ＯｂｊｅｃｔはＡｐｐｌｉｃａｔｉｏｎオブジェクトと何々など、全プロパティとメソッドに、記述があります。
つい見逃しがちですが、原理的には１番大切な部分です。
「ツール」→「オプション」関係、画面関係だけでも、これでいいかなと立ち止まり反省が必要です。

お礼

お返事ありがとうございました！
遅くなり申し訳御座いませんでした。

ご教授ありがとうございます。
これから気を付けます。
ありがとう御座いました。

回答No.3

Wendy02

こんにちは。

私だったら、こんなところかな。参照設定したほうが分かりやすいけれども。

Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
With xlApp
　 .Workbooks.Open "C:\test1.xls"
　 .Visible = True
　 .ActiveWindow.Zoom = 70
　 .ActiveWindow.DisplayGridlines = False
End With

みなさんが、書いていらっしゃるけれども、きちんと、コードを表示したら、一回で解答が得られるはずです。

お礼

お返事ありがとうございました！
遅くなり申し訳御座いませんでした。

なるほど、Excelアプリに直接指示するのですね！
オブジェクト違いでした。
ありがとうございました。

回答No.2

1050 円（@1050YEN）

ActiveWindowはウィンドウオブジェクトです。
ワークブックオブジェクトではありません。

Excel起動部と、ブックオープン部のソースを公開したら、解決できると思いますよ。

お礼

お返事ありがとうございました！
遅くなり申し訳御座いませんでした。

オブジェクト自体が違っていたのですね！
ありがとうございました。