VisWebPageSettings.GetPhysicalDimensions 方法

根據在 eRes 參數中傳遞給 方法的列舉螢幕解析度值，將實際螢幕寬度和高度的值放在傳遞給方法的 pnWidth 和 pnHeight 變數中，以圖元為參數。

語法

運算式。GetPhysicalDimensions (eRes、 pnWidth、 pnHeight)

表達 會傳回 VisWebPageSettings 物件的 運算式。

參數

名稱	必要/選用	資料類型	描述
eRes	必要	VISWEB_DISP_RES	螢幕解析度值。
pnWidth	必要	Long	水準螢幕圖元的數目。
pnHeight	必要	Long	垂直螢幕圖元的數目。

傳回值

Nothing

註解

例如，如果您傳入 VISWEB_DISP_RES 列舉的螢幕解析度值 res1024x768 for eRes，則值 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 支援與意見反應。