KNOWLEDGEBASE - ARTICLE #1122

When I copy and paste Prism graphs into Word, entire Prism objects are pasted. These include raw data and analysis choices I don't want others to see. How can I change the Word file so it contains only the graph without the linked data or analysis choices?

Within Word, you can change the graphs one by one. Select, then copy, then use Paste Special and choose to paste only a picture (and not an object).

If you have lots of Prism graphs in one Word file, run this Word VBA macro instead, to change all the Prism graphs at once. This macro runs on Word 2000 and later on Windows (we haven't tried it on Macs).

============
For Each shapeLoop In ActiveDocument.InlineShapes
       With shapeLoop
           If .Type = wdInlineShapeEmbeddedOLEObject Then
               If .OLEFormat.ClassType = "Prism4.Document" Then
                   .Select
                   Selection.Cut
                   Selection.PasteSpecial DataType:=wdPasteMetafilePicture, Placement:=wdInLine
               End If
           End If
       End With
   Next shapeLoop
   For Each shapeLoop In ActiveDocument.Shapes
       With shapeLoop
           If .Type = msoEmbeddedOLEObject Then
               If .OLEFormat.ClassType = "Prism4.Document" Then
                   .Select
                   Selection.Cut
                   Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine
               End If
           Else
               If .Type = msoTextBox Then
                   For Each fieldLoop In .TextFrame.ContainingRange.Fields
                       With fieldLoop
                           If .Type = wdFieldEmbed Then
                               If .OLEFormat.ClassType = "Prism4.Document" Then
                                   .Select
                                   Selection.Cut
                                   Selection.PasteSpecial DataType:=wdPasteMetafilePicture, Placement:=wdInLine
                               End If
                           End If
                       End With
                   Next fieldLoop
               End If
           End If
       End With
   Next shapeLoop

============

Explore the Knowledgebase

Analyze, graph and present your scientific work easily with GraphPad Prism. No coding required.