VBA and shapes very slow

macropod · #1 01-21-2016, 02:31 PM

I very much doubt the language (or regional settings, etc.) has anything to do with it. The problem is more likely be due to interference from a third-party addin or issues with other content in the document you're using.

jpl · #2 02-13-2016, 05:06 AM

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 !

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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