Re: Visio Question #1

["Rob Hudson" <caveatrob -at- gmail -dot- com>]

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.