VB6 & Publisher file

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Edward S. Sulzer - 19 Nov 2004 20:31 GMT

I am trying to send output into a predesigned publisher form. For certain
shapes in the form, when I try to write data to it, it says "Permission
Denied" Any idea on what shapes or properties are causing this? and no, the
document is not readonly.

Thanks for the help

Reply to this Message

Ed Bennett - 20 Nov 2004 16:30 GMT

While waiting for decisions from his 6 university choices, Ed sees a
message from Edward S. Sulzer <Edward S.
Sulzer@discussions.microsoft.com>. On it is written:

> I am trying to send output into a predesigned publisher form. For
> certain shapes in the form, when I try to write data to it, it says
> "Permission Denied" Any idea on what shapes or properties are causing
> this? and no, the document is not readonly.

To edit the contents of a shape, the shape must be on the currently selected
page - i.e. Shape.Parent must be equal to ActivePage
So, if you're editing a particular shape within a publication at the click
of a CommandBarButton (so you won't know alread which page it's on), you can
use this code:

Dim MyShape As Publisher.Shape

Sub EditShape()
Set ActiveDocument.ActiveView.ActivePage = MyShape.Parent
'Do manipulation of shape
End Sub

If you want to be a little more polite to the user and return him/her to the
page he/she was on, you can add a couple of lines like this:

Dim MyShape As Publisher.Shape

Sub EditShapeAndReturn()
Dim aPage as Publisher.Page
Set aPage = ActiveDocument.ActiveView.ActivePage
Set ActiveDocument.ActiveView.ActivePage = MyShape.Parent
'Do manipulation of shape
Set ActiveDocument.ActiveView.ActivePage = aPage
End Sub

Signature

Ed Bennett - MVP Microsoft Publisher
http://www.mvps.org/the_nerd/
Before reading this message, view the disclaimer:
http://mvps.org/the_nerd/disclaim.htm

Reply to this Message

Rate this thread: