スクリプト センター > 製品とテクノロジ別 > Microsoft Office > 図解 : Microsoft Office 管理

スクリプトによる Excel の図オプションの制御

Microsoft Excel 2003 の図オプションの取得方法と設定方法を説明するサンプル VBScript スクリプトです。

*
**
関連リンク
•オートコレクト オプション
•入力オートフォーマット オプション
•ブラウザ オプション
•計算方法オプション
•グラフ オプション
•編集オプション
•エンコード オプション
•エラー チェック オプション
•ファイル オプション
•全般オプション
•全般オプション (Web)
•インターナショナル オプション
•セキュリティ オプション
•セキュリティ (詳細) オプション
•自動保存オプション
•スマート タグ オプション
•スペル チェック オプション
•移行オプション
•表示オプション
**

ダイアログ ボックスと Excel オブジェクト モデルの対応

以下に示すスクリプトの中で参照されているオプションは、[Web オプション] ダイアログ ボックスの [図] タブにあるオプションに対応します。Microsoft Excel 2003 でこれらのオプションにアクセスするには、[ツール] メニューの [オプション] をクリックし、[全般] タブをクリックします。次に、[Web オプション] をクリックし、[図] タブをクリックします。このダイアログ ボックスで使用可能なオプションと Microsoft Excel オブジェクト モデルの対応を下の図に示します。図の文字が読み取れない場合は、ここをクリックして拡大表示してください。

図


ここに示すスクリプトは、Microsoft Excel 2003 を使用してテストを行いました。少なくともいくつかの機能は、Visual Basic for Applications (VBA) をサポートしている Microsoft Excel のすべてのバージョンで動作します。ただし、その他のバージョンでは、テストは行われていません。

ページのトップへページのトップへ

値を取得するためのサンプル コード

Microsoft Excel 2003 の [Web オプション] ダイアログ ボックスにある [図] タブの設定情報を取得するサンプル スクリプトです。

Set objExcel = CreateObject("Excel.Application")

Wscript.Echo "Screen size: " & objExcel.DefaultWebOptions.ScreenSize
Wscript.Echo "Pixels per inch: " & objExcel.DefaultWebOptions.PixelsPerInch

objExcel.Quit
ページのトップへページのトップへ

値を変更するためのサンプル コード

Excel で作成された Web ページを表示するモニタのサイズを 1024x768 に構成するサンプル スクリプトです。

Const msoScreenSize1024x768 = 4

Set objExcel = CreateObject("Excel.Application")

objExcel.DefaultWebOptions.ScreenSize = msoScreenSize1024x768

objExcel.Quit
ページのトップへページのトップへ

本サンプル スクリプトは Microsoft の標準サポート プログラムまたはサービスではサポートされていません。このサンプル コードは何等保障もない現状有姿のままで提供されます。さらに、Microsoft は、商品性、特定目的への適合性を含む一切の黙示の保証をいたしかねます。本サンプル スクリプトおよびドキュメントの使用または性能に起因するすべてのリスクは、お客様が負うものとします。Microsoft、本サンプル スクリプトの作成者、および本スクリプトの作成、製造、配布に関与する者は、いかなる場合においても、本サンプル スクリプトおよびドキュメントの使用または使用不能から生じる損害 (逸失利益、事業の中断、事業情報の喪失またはその他の金銭的損失を含みますがこれらに限定されません) に関して一切責任を負いません。たとえ、Microsoft がこのような損害の可能性について知らされていた場合でも同様です。


ページのトップへページのトップへ