表格“选项”与单元格“选项”在作怪

菜菜行者 · 发表于 2017-9-24 18:41

本帖最后由菜菜行者于 2017-9-24 18:45 编辑

上图行的高度不一样，整个表格属性中的“选项”，单元格边距上下都是0.3，如下图
1 QQ截图20170924181324.png

但有一行，因为在“单元格”的“选项”填了其它数值，导致它与其他行高度不一样，上下不是0.3，而是0，如下图

为使它能与“表格”的“单元格”“默认单元格边距”是统一的，要修改，要选中表格，不是某一行，是选中整个表格，选项，填进数值，不能是0也不能空，要一个数值，我填一个0.05，这样整个表格上下边距被修改为“单元格”中的默认单元格边距0.05，如下图
4 QQ截图20170924181713.png

这样，整个表格每行的上下边距是0.05，0.3是不启作用的。
6 QQ截图20170924181840.png

为了使表格上下边距是0.3，得把“与整张表格相同”打勾，这样表格的边距上下0.3才是我想要的 5 QQ截图20170924181803.png

大神，懂我的表达的意思吗？？

单元格选项.rar (3.1 KB, 下载次数: 2)

我录的宏不启作用

Sub Macro12()
With Selection.Tables(1)
      .TopPadding = CentimetersToPoints(0.3)
      .BottomPadding = CentimetersToPoints(0.3)
      .LeftPadding = CentimetersToPoints(0.19)
      .RightPadding = CentimetersToPoints(0.19)
      .Spacing = 0
      .AllowPageBreaks = True
      .AllowAutoFit = True
End With
With Selection.Cells(1)
      .TopPadding = CentimetersToPoints(0.05)
      .BottomPadding = CentimetersToPoints(0.05)
      .LeftPadding = CentimetersToPoints(0.19)
      .RightPadding = CentimetersToPoints(0.19)
      .WordWrap = True
      .FitText = False
End With
With Selection.Cells(1)
      .WordWrap = True
      .FitText = False
End With
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 表格“选项”与单元格“选项”在作怪