Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1940
  • Last Modified:

VBA on Visio 2013 - how to delete a range of pages

I would like to delete the first five pages in my visio file using VBA.
What is the code to do this?
0
brothertruffle880
Asked:
brothertruffle880
1 Solution
 
Scott HelmersVisio Consultant, Trainer, Author, and DeveloperCommented:
This will work by deleting "page 1" five times (each time you delete the page that is currently number 1, the next page becomes number 1).
Sub DeleteFirstFivePages()
    For i = 1 To 5
        ActiveDocument.Pages(1).Delete (False)
    Next
End Sub

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now