VBA and shapes very slow

jpl · #10 02-14-2016, 08:04 AM

Hello, and thank you for the interest which you carry in my (our?) problem.

For information, I have no printer connected with my computer.

Actually, the problem is specific in Word 2010: I modified the macro to change the document to the Word 2003 document format.
The run time passes from 108 seconds to 1 second.

Code:

Sub MesureDureeter()
    Dim i As Long, Boite As Shape, Debut As Date
    Debut = Time
    
    Me.DowngradeDocument

    For i = 1 To 500
       Set Boite = Me.Shapes.AddShape(msoShapeRectangle, 4 * i, 72.75, 4, 19.5)
       Boite.Fill.ForeColor.RGB = RGB(2 * i, 2 * i, 2 * i)
    Next i
         
    Me.Convert

    MsgBox CStr((Time - Debut) * 24 * 3600) & " s"
End

Bonjour, et merci de l'intérêt que vous portez à mon (notre ?) problème.

Pour information, je n'ai aucune imprimante reliée à mon ordinateur.

Effectivement, le problème est spécifique à Word 2010 : j'ai modifié la macro pour passer le document au format Word 2003.
Le temps d'exécution passe de 108 secondes à 1 seconde.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
shapes in header	mhagi	Word VBA	2	10-16-2015 12:21 AM
Slow internet = Slow Word...	User12344321	Word	4	09-21-2015 12:54 PM
All Shapes on slide	excelledsoftware	PowerPoint	9	09-15-2013 04:03 AM
Where did map shapes go?	SueK	PowerPoint	1	01-20-2011 04:30 AM
My Shapes some appear some don't	Jean-Paul	Visio	0	03-01-2006 01:38 AM