VisWebPageSettings.EndPage property
Specifies the page number of the last page in the range when you save a range of pages as a webpage. Read/write.
Syntax
expression.EndPage
expression An expression that returns a VisWebPageSettings object.
Return value
Long
Remarks
The start page number is specified in the StartPage property.
The EndPage property value corresponds to the value in the to box on the General tab of the Save As Web Page dialog box (BackstageButton tab > Save As > Save as type list > Web Page (*.htm;*.html) > Publish).
Example
The following Microsoft Visual Basic for Applications (VBA) macro shows how to use the EndPage property to save a range of pages in a drawing (in this case, from page 2 to page 3) as a webpage instead of the complete drawing.
This macro assumes that the current Visio drawing contains at least three pages.
Before running this macro, replace path\filename.htm with a valid target path on your computer and the filename that you want to assign to your webpage.
Public Sub EndPage_Example()
Dim vsoSaveAsWeb As VisSaveAsWeb
Dim vsoWebSettings As VisWebPageSettings
Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject
Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
With vsoWebSettings
.StartPage = 2
.EndPage = 3
.TargetPath = "path\filename.htm"
End With
vsoSaveAsWeb.CreatePages
End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.