Results 1 to 2 of 2
  1. #1
    New Lounger
    Join Date
    May 2002
    Location
    Colorado, USA
    Posts
    11
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Programmatic copy/paste of textrange-- (2000)

    I want to programmatically move the contents of a table
    cell to a different cell. I cannot seem to find a way to
    do this that does not lose the formatting information
    associated with the text. For example:

    With ActivePresentation.Slides(2).Shapes(2).Table
    .Cell(3,1).Shape.TextFrame.TextRange.Copy
    .Cell(3,3).Shape.TextFrame.TextRange.Paste
    End With

    This code will copy the text but not the font properties
    of this text. Recording the manual cell-to-cell copy and
    paste does not help as it does not record anything.

    I want to run the macro in edit mode, not slide show mode.

    Damon

  2. #2
    Super Moderator
    Join Date
    Dec 2000
    Location
    New York, NY
    Posts
    2,970
    Thanks
    3
    Thanked 29 Times in 27 Posts

    Re: Programmatic copy/paste of textrange-- (2000)

    Damon,

    I don't have PPT 2000 handy right now, but when I run your code in PPT 2002, it does work the way you're looking for it to work - hmm, wonder if there is any difference in paste format defaults between the two versions? (don't know much PPT so have no idea...)

    Does it make any difference if you try:

    <pre>With ActivePresentation.Slides(2).Shapes(2).Table
    .Cell(3, 1).Shape.TextFrame.TextRange.Copy
    .Cell(3, 3).Shape.TextFrame.TextRange.PasteSpecial ppPasteRTF
    End With
    </pre>

    Gary

Posting Permissions

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