Significant performance problem when duplicating or pasting shape

NobodysPerfect · #1 03-30-2015, 02:05 AM

Hi to all,

I’d be glad if anyone could help me with some very slow cold.

Given: Shape (in front of text) in the first cell of a table. Shape properties:

Code:

With Shp
    .RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
    .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
    .Height = CentimetersToPoints(2.63)
    .Top = CentimetersToPoints(1.66)
    .Left = CentimetersToPoints(2.57)
    .Name = “ShapeToInsert”
End With

Wanted: Copy/Paste or Duplicate/Move Shape into all cells of the table.

Problem: Whatever way I try as soon as the shape is pasted / duplicated, the properties .Left and .Top get lost. Which means, I need a second loop to adjust .Top and .Left again. Unfortunately the formatting takes about one second per shape.

Do you have any idea how to improve the code or do you even see another approach than mine?

Any help appreciated – as always
NP

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Performance problem ActiveX radio buttons	NobodysPerfect	Word VBA	8	05-31-2014 03:51 AM
Word 2000--Problem with format retention when pasting	JerryL	Word	2	01-05-2014 07:20 PM
Copy and pasting problem Word 2010	Sarah262	Word	3	08-16-2012 03:46 PM
Office '03 + '07-->Performance?	markg2	Office	1	08-04-2011 06:09 AM
Pasting problem	Alec	Word	1	11-09-2009 12:26 PM