您的位置：程序门 -> vb -> vba

vba判断艺术字和表格

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vba判断艺术字和表格

发表于：2007-04-05 16:14:23 楼主

问题1:
for each nx in activedocument.shapes
if instr（nx.name, "wordart ") then fs = fs + 2
msgbox fs
next
上面代码是判断有没有插入艺术字的
我想在判断插入艺术字的样式,字体,字号要怎么样判断

问题2:
msgbox activedocument.tables.count > 0
这个代码是判断有没有插入表格
我想在判断插入表格的列数和行数要怎么样判断

发表于：2007-04-05 17:43:521楼得分:0

帮顶

发表于：2007-04-06 01:13:532楼得分:0

问题2:

sub macro2（)
msgbox "表格的行数和列数分别为： " & activedocument.tables（1).rows.count & "* " & activedocument.tables（1).columns.count
end sub

发表于：2007-04-06 01:40:013楼得分:0

问题1:

sub macro1（)
dim myshape as shape, s（4) as string
for each myshape in activedocument.shapes
if myshape.type = msotexteffect then
s（0) = "名称： " & myshape.name
s（1) = "文本： " & myshape.texteffect.text
s（2) = "字体： " & myshape.texteffect.fontname
s（3) = "字号： " & myshape.texteffect.fontsize
s（4) = "对齐方式： " & myshape.texteffect.alignment
msgbox join（s, vbcrlf)
end if
next
end sub

发表于：2007-04-10 16:42:464楼得分:0

谢谢了

下一篇：vb提示"远程服务器不存在或不能使用" 如何解决??
上一篇：excel的问题，在线等！

其他资讯