对象操作PPT设置表格线颜色

dfgtrhgt

参考VBA
http://www.exceloffice.net/archives/1275
.版本 2

        ' Shapes.读对象型属性 (“Item”, 数量).读对象型属性 (“Table”, ).对象型方法 (“cell”, 行索引, 列索引).读对象型属性 (“Borders”, 3).读对象型属性 (“ForeColor”, ).写属性 (“RGB”, 取颜色值 (0, 0, 0))
        Shapes.读对象型属性 (“Item”, 1).读对象型属性 (“line”, ).读对象型属性 (“ForeColor”, ).写属性 (“RGB”, 取颜色值 (0, 0, 0))  ' 矩形的边框颜色为白色

以上都不对
求正确写法

梦寻简单

  

变量名	类 型	静态	数组	备 注
ppt	对象
slides	对象
slide	对象
shapes	对象
shape	对象
table	对象
cell	对象
borders	对象
border	对象
slideCount	整数型
shapeCount	整数型
borderCount	整数型
i	整数型
j	整数型
k	整数型
m_	整数型
n_	整数型
行	整数型
列	整数型

ppt.获取 (“Powerpoint.Application”)
ppt ＝ ppt.读对象型属性 (“ActivePresentation”, )
slides ＝ ppt.读对象型属性 (“Slides”, )
slideCount ＝ slides.读数值属性 (“Count”, )
计次循环首 (slideCount, i)
slide ＝ slides.对象型方法 (“Item”, i)
shapes ＝ slide.读对象型属性 (“Shapes”, )
shapeCount ＝ shapes.读数值属性 (“Count”, )
计次循环首 (shapeCount, j)
shape ＝ shapes.对象型方法 (“Item”, j)
如果真 (shape.读逻辑属性 (“HasTable”, ))
table ＝ shape.读对象型属性 (“Table”, )
行 ＝ table.读对象型属性 (“Rows”, ).读数值属性 (“Count”, )
列 ＝ table.读对象型属性 (“Columns”, ).读数值属性 (“Count”, )
计次循环首 (行, m_)
计次循环首 (列, n_)
cell ＝ table.对象型方法 (“Cell”, m_, n_)
borders ＝ cell.读对象型属性 (“Borders”, )
borderCount ＝ borders.读数值属性 (“Count”, )
计次循环首 (borderCount, k)
border ＝ borders.对象型方法 (“Item”, k)
Border.读对象型属性 (“ForeColor”, ).写属性 (“RGB”, 取颜色值 (R, G, B))
计次循环尾 ()
计次循环尾 ()
计次循环尾 ()

计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .局部变量 ppt, 对象<br /> .局部变量 slides, 对象<br /> .局部变量 slide, 对象<br /> .局部变量 shapes, 对象<br /> .局部变量 shape, 对象<br /> .局部变量 table, 对象<br /> .局部变量 cell, 对象<br /> .局部变量 borders, 对象<br /> .局部变量 border, 对象<br /> .局部变量 slideCount, 整数型<br /> .局部变量 shapeCount, 整数型<br /> .局部变量 borderCount, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 k, 整数型<br /> .局部变量 m_, 整数型<br /> .局部变量 n_, 整数型<br /> .局部变量 行, 整数型<br /> .局部变量 列, 整数型<br /> <br /> ppt.获取 (“Powerpoint.Application”)<br /> ppt ＝ ppt.读对象型属性 (“ActivePresentation”, )<br /> slides ＝ ppt.读对象型属性 (“Slides”, )<br /> slideCount ＝ slides.读数值属性 (“Count”, )<br /> .计次循环首 (slideCount, i)<br />     slide ＝ slides.对象型方法 (“Item”, i)<br />     shapes ＝ slide.读对象型属性 (“Shapes”, )<br />     shapeCount ＝ shapes.读数值属性 (“Count”, )<br />     .计次循环首 (shapeCount, j)<br />         shape ＝ shapes.对象型方法 (“Item”, j)<br />         .如果真 (shape.读逻辑属性 (“HasTable”, ))<br />             table ＝ shape.读对象型属性 (“Table”, )<br />             行 ＝ table.读对象型属性 (“Rows”, ).读数值属性 (“Count”, )<br />             列 ＝ table.读对象型属性 (“Columns”, ).读数值属性 (“Count”, )<br />             .计次循环首 (行, m_)<br />                 .计次循环首 (列, n_)<br />                     cell ＝ table.对象型方法 (“Cell”, m_, n_)<br />                     borders ＝ cell.读对象型属性 (“Borders”, )<br />                     borderCount ＝ borders.读数值属性 (“Count”, )<br />                     .计次循环首 (borderCount, k)<br />                         border ＝ borders.对象型方法 (“Item”, k)<br />                         Border.读对象型属性 (“ForeColor”, ).写属性 (“RGB”, 取颜色值 (R, G, B))<br />                     .计次循环尾 ()<br />                 .计次循环尾 ()<br />             .计次循环尾 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

dfgtrhgt

梦寻简单 发表于 2020-5-6 17:51
[e=0].版本 2

.局部变量 ppt, 对象

qq242570881   我式了一下，不行啊

梦寻简单

dfgtrhgt 发表于 2020-5-6 18:02
qq242570881   我式了一下，不行啊

为啥不调试一下获取成功了没