Hello and thank you for your suggestions.
On your advice, I thus launch Word without complement, it changes nothing.
I understood that at your home the execution of the macro is very fast.
I thus made execute the macro to some friends who possess Office 2010. They all noticed the same slowing down.
A progress however: if I hide the window of my document (lines 5. And 12.), the run time is divided by 36: it passes from 108 seconds to 3 seconds.
Code:
Sub MesureDureebis()
Dim i As Long, Boite As Shape, Debut As Date
Debut = Time
ActiveDocument.Windows(1).Visible = False
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
ActiveDocument.Windows(1).Visible = True
MsgBox CStr((Time - Debut) * 24 * 3600) & " s"
End Sub
I admit to understand nothing !
Bonjour et merci pour vos suggestions.
Sur vos conseils, je lance donc Word sans complément, cela ne change rien.
J'ai cru comprendre que chez vous l'exécution de la macro est très rapide.
J'ai donc fait exécuter la macro à quelques amis qui disposent d'Office 2010. Ils ont tous constaté le même ralentissement.
Seul progrès : si je cache la fenêtre de mon document (lignes 5. et 12.), le temps d'exécution est divisé par 36 : il passe de 108 secondes à 3 secondes.
J'avoue ne rien y comprendre !