Dim i As Integer
Dim total As Integer
total = ActiveDocument.InlineShapes.Count
i = 0
For Each oIshp In ActiveDocument.InlineShapes
i = i + 1
On Error Resume Next
Application.StatusBar = "Progress: " & i & " of " & total
With oIshp
.ScaleHeight = 100
.ScaleWidth = 100
End With
Next oIshp
MS Word, VBA, Set scale to all OLE objects
-
20-07-2023 - |
Frage
There is MS Word (2013) document with many formulas (more then 1000), created with MathType. They are included into document as OLE objects. Is any simple way to set same value of parameter "scale X", "scale Y" to all of this objects?
Lösung
Lizenziert unter: CC-BY-SA mit Zuschreibung
Nicht verbunden mit StackOverflow