このようなマクロを、実行すれば、消えると思います。ただ、図面1枚ごとになりますが。
Sub DeleteWaterMark()
Dim shp As Visio.Shape
Dim pge As Visio.Page
For Each pge In ActiveDocument.Pages
Set shp = pge.Shapes("Watermark Title")
shp.Cells("LockTextEdit").FormulaForce = ""
shp.Characters.Delete
Next
End Sub
お礼
アドバイスありがとう御座います. visio上でのマクロの実行の方法は まだ分かりませんが, 調べてみて実行したいと思います.