Go Premium for a chance to win a PS4. Enter to Win
Application.ActiveWindow.Page.DrawOval 3, 4, 4, 5
Dim vsoCharacters1 As Visio.Characters
Set vsoCharacters1 = Application.ActiveWindow.Page.Shapes.ItemFromID(1).Characters
vsoCharacters1.Begin = 0
vsoCharacters1.End = 0
vsoCharacters1.Text = "text in circle"
Open in new window
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
LoopThroughFiles: This subroutine loops through the files in a specific directory.
' This program will loop through specific files within a directory.
Dim docsObj As Visio.Documents, docObj As Visio.Document, pagsObj as Visio.Pages
Dim PathFileName As String, PathName As String, CurrFileName As String
' Set the default pathname
PathName = "C:\VisioTemp\"
PathFileName = PathName & "*.vsd"
' Find the first file from the directory (not necessarily the first alphabetically)
CurrFileName = Dir(PathFileName)
Do While CurrFileName <> ""
' Open the file
PathFileName = PathName & CurrFileName
Set docObj = Documents.Open(PathFileName)
Set pagsObj = docObj.Pages
' Do what you want to the pages in this file!
CurrFileName = Dir
Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.