用vba给word的 表格中的图片 加边框时的问题

zfybs

问题如下：
对于普通段落中的嵌入式图片，是可以直接添加四周的边框的，而对于表格中的图片，却是将边框加到了单元格上。
代码如下：

1.    Sub 嵌入式图片加边框()
   
2.         Application.ScreenUpdating = False
   
3.         Dim a As Integer
   
4.         a = Selection.InlineShapes.Count
   
5.         If a = 0 Then
   
6.             MsgBox ("没有发现嵌入式图片")
   
7.         End If
   
8.         For Each pic In Selection.InlineShapes
   
9.             pic.Borders.Enable = True  ' 就是这一句，对于普通段落中的嵌入式图片，是可以直接添加四周的边框的，而对于表格中的图片，却是将边框加到了单元格上。
   
10.             With pic
    
11.                 pic.Range.Style = "图片"
    
12.                 With .Borders(wdBorderLeft)
    
13.                     .LineWidth = wdLineWidth025pt
    
14.                     .Color = wdColorBlack
    
15.                 End With
    
16.                 With .Borders(wdBorderRight)
    
17.                     .LineWidth = wdLineWidth025pt
    
18.                     .Color = wdColorBlack
    
19.                 End With
    
20.                 With .Borders(wdBorderTop)
    
21.                     .LineWidth = wdLineWidth025pt
    
22.                     .Color = wdColorBlack
    
23.                 End With
    
24.                 With .Borders(wdBorderBottom)
    
25.                     .LineWidth = wdLineWidth025pt
    
26.                     .Color = wdColorBlack
    
27.                 End With
    
28.                 .ScaleHeight = 100
    
29.                 .ScaleWidth = 100
    
30.             End With
    
31.         Next
    
32.         Application.ScreenUpdating = True
    
33.     End Sub

复制代码

效果如下：

zfybs

另外求教一下，对于已添加上边框的图片，如何取消其边框。
pic.Borders.Enable = False 好像不行； pic.Borders(wdBorderLeft).Visible = False好像也不行啊。