Метод VisWebPageSettings.GetPhysicalDimensions

Статья
04/07/2023

На основе перечисленного значения разрешения экрана, переданного методу в параметре eRes , помещает реальные значения ширины и высоты экрана в пикселях в переменные pnWidth и pnHeight, передаваемые методу в качестве параметров.

Синтаксис

expression. GetPhysicalDimensions (eRes, pnWidth, pnHeight)

Выражение Выражение, возвращающее объект VisWebPageSettings .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ERes	Обязательный	VISWEB_DISP_RES	Значение разрешения экрана.
pnWidth	Обязательный	Long	Количество пикселей горизонтального экрана.
pnHeight	Обязательный	Long	Количество пикселей вертикального экрана.

Возвращаемое значение

Nothing

Замечания

Например, если передать в VISWEB_DISP_RES перечисленное значение разрешения экрана res1024x768 для 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 и обратная связь.

Поделиться через