Re: Visio Question #1

Subject: Re: Visio Question #1
From: "Rob Hudson" <caveatrob -at- gmail -dot- com>
To: vrfour -at- verizon -dot- net
Date: Fri, 16 Mar 2007 14:33:11 -0400

First, create your shape and drag it to a stencil to add it as a master
shape. You can rename it once it's in the stencil (which should also be set
to editable).
Then, run the following code from the VBA editor. Be sure to change the
stencil and shape name to your own stencil and shape name as indicated in
the comments.



Sub IterateAllPages()
Dim dirName As String

Dim pgs As Pages
Dim n As Integer
Dim pg As Page
Dim shpObj As Shape

Dim X As Double ' Y coordinate to drop the shape
Dim Y As Double ' X coordinate to drop the shape
X = 4.25
Y = 9

Set pgs = Application.ActiveDocument.Pages
For n = 1 To pgs.Count

Set pg = pgs(n)
If pg.Background = False Then
' Don't make changes to background pages
' Change ScreenElements.vss to your stencil name
' Change bluerow to your master shape name
Set shpObj =
pg.Drop(Documents("ScreenElements.vss").Masters("bluerow"),
X, Y)
set shpObj=nothing
End If

Next n


Set pBackground = Nothing
set pg=nothing
Set pgs = Nothing

End Sub

On 3/16/07, James Barrow <vrfour -at- verizon -dot- net> wrote:
>
> I created a small table (shape) in Visio that I want to paste into the
> upper-left hand corner of every worksheet (112).
>
> Can this be done in a single step ('Apply to All')?
>
> - Jim
>
>
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Create HTML or Microsoft Word content and convert to Help file formats or
printed documentation. Features include single source authoring, team authoring,
Web-based technology, and PDF output. http://www.DocToHelp.com/TechwrlList

Now shipping: Help &amp; Manual 4 with RoboHelp(r) import! New editor,
full Unicode support. Create help files, web-based help and PDF in up
to 106 languages with Help &amp; Manual: http://www.helpandmanual.com

---
You are currently subscribed to TECHWR-L as archive -at- web -dot- techwr-l -dot- com -dot-

To unsubscribe send a blank email to
techwr-l-unsubscribe -at- lists -dot- techwr-l -dot- com
or visit http://lists.techwr-l.com/mailman/options/techwr-l/archive%40web.techwr-l.com


To subscribe, send a blank email to techwr-l-join -at- lists -dot- techwr-l -dot- com

Send administrative questions to admin -at- techwr-l -dot- com -dot- Visit
http://www.techwr-l.com/techwhirl/ for more resources and info.


References:
Visio Question #1: From: James Barrow

Previous by Author: Page Layout- Indesign, Quark, OpenOffice Writer?
Next by Author: RE: Help!
Previous by Thread: Visio Question #1
Next by Thread: RE: Motherboard (was Pet Peeves)


What this post helpful? Share it with friends and colleagues:


Sponsored Ads