VisWebPageSettings.GetPhysicalDimensions メソッド
eRes パラメーターの メソッドに渡される列挙された画面解像度の値に基づいて、パラメーターとしてメソッドに渡される pnWidth 変数と pnHeight 変数に、画面の幅と高さの実際の値をピクセル単位で配置します。
構文
式。GetPhysicalDimensions (eRes, pnWidth, pnHeight)
式VisWebPageSettings オブジェクトを返す式。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Eres | 必須 | VISWEB_DISP_RES | 画面解像度の値。 |
pnWidth | 必須 | Long | 水平方向の画面ピクセルの数。 |
pnHeight | 必須 | Long | 垂直画面ピクセルの数。 |
戻り値
Nothing
注釈
たとえば、eRes のVISWEB_DISP_RES列挙された画面解像度値 res1024x768 を渡すと、値 1024 と 768 が pnWidth と pnHeight で返されます。
例
次の例は 、GetPhysicalDimensions メソッドを使用して、最初のパラメーターとして メソッドに渡される画面解像度に対応する画面の幅と高さを決定する方法を示しています。
Public Sub GetPhysicalDimensions_Example()
Dim vsoSaveAsWeb As VisSaveAsWeb
Dim vsoWebSettings As VisWebPageSettings
Dim lngWidth As Long
Dim lngHeight As Long
Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject
Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
vsoWebSettings.GetPhysicalDimensions res1280x1024, lngWidth, lngHeight
Debug.Print lngwidth; lngHeight
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。