How to remove shape in Ms Word using VBA Macro
In Microsoft word, it provides the approach to write VBA Function known as Macro to perform automatically tasks in Ms Word. We can also implement VBA class objects with VBA’s function for the automatically tasks. First, write your own function to remove all shapes which contain in Word File. VBA contains a Class Object called Shape and Shapes to deal with all shapes. We can use Shape Object to delete, select or duplicate the shape.
Code Sample to delete all shapes
Here is complete code example to remove all shapes. This example uses Shapeobject in VBA:
SubRemoveShapes()
Dim oShape AsShape
Do
For EachoShape In ActiveDocument.Shapes
' Delete the shape
oShape.Delete
NextoShape
Loop UntilActiveDocument.Shapes.Count = 0
Set oShape = Nothing
End Sub
How to test this Code
1. Open Ms Word
2. Open VB Editor or Alt+F11
3. Create new module
4. Copy and paste the Code
5. Go back to you word and go to Macro Dialog then select the Macro Name RemoveShape and Click on Run
That’s all on how to remove all shapes in Ms Word.
0 comments :
Post a Comment