J
John
Hi there,
I'm having trouble with a shapesheet cell reference. I've got three pages
"Front" and "Page-3" are foreground pages and "VBackground" is a background
page. I'm trying to right the following formula into the PinX of the
"Square1" shape on the background page
Pages[Front]!vGuideRight!PinX (this produces an "Error in formula")
Pages[Page-3]!Sheet.1!PinX (this works fine for some reason)
I've run a quick check on the page and shape names and ID's (see below) but
I still can't seem to solve the problem.
Any clues anyone?
Thanks
John
(Visio 2003)
Sub CheckPages()
Dim pag As Page
Dim shp As Shape
For Each pag In ActiveDocument.Pages
Debug.Print pag.Name, pag.ID & " **********************"
For Each shp In pag.Shapes
Debug.Print shp.Name, shp.ID
Next shp
Next pag
End Sub
DEBUG OUTPUT
Front 0 **********************
vGuideHorzPic 12
vGuideHorzTitle 10
vGuideRight 3
Logo 1
MainTitleText 4
SubTitleText 5
MainTitleUnderline 6
BlueSideLine 7
PrepText 8
PrepLine 9
Square1 11
CountryText 2
Page-3 6 **********************
Square1 1
VBackground 4 **********************
vGuideHorzPic 1
vGuideHorzTitle 2
Logo 4
MainTitleText 5
SubTitleText 6
MainTitleUnderline 7
BlueSideLine 8
PrepText 9
PrepLine 10
Square1 11
CountryText 12
I'm having trouble with a shapesheet cell reference. I've got three pages
"Front" and "Page-3" are foreground pages and "VBackground" is a background
page. I'm trying to right the following formula into the PinX of the
"Square1" shape on the background page
Pages[Front]!vGuideRight!PinX (this produces an "Error in formula")
Pages[Page-3]!Sheet.1!PinX (this works fine for some reason)
I've run a quick check on the page and shape names and ID's (see below) but
I still can't seem to solve the problem.
Any clues anyone?
Thanks
John
(Visio 2003)
Sub CheckPages()
Dim pag As Page
Dim shp As Shape
For Each pag In ActiveDocument.Pages
Debug.Print pag.Name, pag.ID & " **********************"
For Each shp In pag.Shapes
Debug.Print shp.Name, shp.ID
Next shp
Next pag
End Sub
DEBUG OUTPUT
Front 0 **********************
vGuideHorzPic 12
vGuideHorzTitle 10
vGuideRight 3
Logo 1
MainTitleText 4
SubTitleText 5
MainTitleUnderline 6
BlueSideLine 7
PrepText 8
PrepLine 9
Square1 11
CountryText 2
Page-3 6 **********************
Square1 1
VBackground 4 **********************
vGuideHorzPic 1
vGuideHorzTitle 2
Logo 4
MainTitleText 5
SubTitleText 6
MainTitleUnderline 7
BlueSideLine 8
PrepText 9
PrepLine 10
Square1 11
CountryText 12