我有一个小的宏，它将一个新的工作表添加到一个图纸，用于创建一个.dxf文件，用于激光切割钣金零件 .

Sub CATMain()

Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets

Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.Add("Laser")

drawingSheet1.PaperSize = catPaperA0

drawingSheet1.[Scale] = 1#

drawingSheet1.Orientation = catPaperLandscape

CATIA.StartCommand "Unfolded View"

End Sub

我想添加这个宏，它删除了表格格式的边框 .
执行此操作的手动方法如以下屏幕截图所示：

enter image description here

所以我要么找到一个VBA命令取消该框，要么找一个命令来使用Sheet Style "NoBorderTest"（如截图所示） .
我也找不到办法，任何帮助都会受到赞赏 .

vba catia