Changing the names of text boxes

Guessed · #17 05-10-2018, 06:56 AM

Just tidying the logic a little bit and changing the activewindow view. Is this any different in speed?

Code:

Sub SpeedTest()
  Dim oShp As Shape, changecount As Integer, shapecount As Long, shapemax As Long
  Dim timestart As Date, timestop As Date, changeflag As Boolean
    
  timestart = Now()
  shapemax = ActiveDocument.Shapes.Count
  
  Application.ScreenUpdating = False
  ActiveWindow.View = wdNormalView
  changeflag = False
    
  For Each oShp In ActiveDocument.Shapes
    changeflag = False
    If oShp.AlternativeText = "shrink" Then
      With oShp.TextFrame
        Do While .Overflowing
          changeflag = True
          .TextRange.Font.Shrink
          DoEvents
        Loop
      End With
      If changeflag = True Then changecount = changecount + 1
      StatusBar = String(50, " ") & "Macro status: " & shapecount & " of " & AllShapes
      shapecount = shapecount + 1
    End If
  Next oShp
  
  ActiveWindow.View = wdPrintView
  Application.ScreenUpdating = True
  timestop = Now()
  MsgBox "Complete - " & changecount & " changes made. Time taken: " & DateDiff("s", timestart, timestop) & " seconds"
End Sub

Note that dimensioning without an explicit type gives you a variant. For example,
Dim shapecount, shapemax As Long
gives you shapecount as a variant and shapemax as Long

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Formats in text boxes in Word 2016 changing unexpectedly	PugwashAtNPEU	Word	4	05-04-2017 05:53 AM
Changing Default Fonts for Text Boxes and Tables	LadyBug679	PowerPoint	2	04-01-2016 06:42 AM
Changing the font colour in all text boxes	marqives	Word VBA	1	11-25-2014 06:05 PM
Changing the placeholder text for drop down boxes	DeadBatteries	Word	1	08-24-2012 09:09 AM
Arrows and text boxes disappear when changing view?	Jesse	Word	4	06-12-2012 05:28 PM