Results 1 to 6 of 6

Thread: Copy Shape

  1. #1
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Copy Shape

    How do I copy a Shape object from one doc or template to another?
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

  2. #2
    Super Moderator
    Join Date
    Jan 2001
    Location
    Melbourne, Victoria, Australia
    Posts
    3,853
    Thanks
    4
    Thanked 259 Times in 239 Posts

    Re: Copy Shape

    Save it as an autotext entry and move it with the Organiser
    Andrew Lockton, Chrysalis Design, Melbourne Australia

  3. #3
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Copy Shape

    Really? That's my only option? Gee, Wally.
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

  4. #4
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Copy Shape - Self Service?

    I might be on to something here:

    <pre>Sub CopyShape
    Dim oShape as ShapeSet
    Dim strActiveDoc = Activedocument.name

    oShape = ThisDocument.Shapes("StateSeal")
    oShape.Select
    Selection.Copy
    Documents(strActiveDoc).Activate
    Selection.Paste
    Set oShape = Nothing
    end sub </pre>

    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

  5. #5
    Super Moderator
    Join Date
    Jan 2001
    Location
    Melbourne, Victoria, Australia
    Posts
    3,853
    Thanks
    4
    Thanked 259 Times in 239 Posts

    Re: Copy Shape

    Weeeelll it ain't yer only option but it did seem like such an odd request from someone as distinguished as yerself that I thought I would have an obscure stab at it.
    Andrew Lockton, Chrysalis Design, Melbourne Australia

  6. #6
    Gold Lounger
    Join Date
    Dec 2000
    Location
    Hollywood (sorta), California, USA
    Posts
    2,759
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Copy Shape

    Andrew,

    I didn't like your medicine, so I set out to make my own. And mine makes me gag. IOW, it doen't work!. In order to copy and paste from the document layer of a global template (yes, that was my idea!) the document must be OPEN. That's not practical. I'm not going to code that for users. So I let myself be influenced by your wise counsel. And, guess what?

    Your technique not only works, but it's actually quite elegant. I put the autotext of these graphics in a global template and they are available just like any other autotext. Thanks for offering your idea to this "distinguished" bumbler.
    Kevin <IMG SRC=http://www.wopr.com/w3tuserpics/Kevin_sig.gif alt="Keep the change, ya filthy animal...">
    <img src=/w3timages/blackline.gif width=33% height=2><img src=/w3timages/redline.gif width=33% height=2><img src=/w3timages/blackline.gif width=33% height=2>

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •