判断艺术字

hexiaoer520

我是想判断艺术字的样式

 插入的艺术字是艺术字库里的

  第几行 第几列   的哪种

  麻烦告诉下`谢谢

jd8o55Bd.rar (7.1 KB, 下载次数: 13)

2007-4-13 20:57 上传

点击文件名下载附件
判断艺术字

konggs

试试这个

Sub Macro1()

ActiveDocument.Shapes("WordArt 2").Select
    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
        Dim intarr() As Integer
        If myShape.TextEffect.PresetTextEffect = msoTextEffectMixed Then
            MsgBox Join(s, vbCrLf) & vbCrLf
        Else
            intarr = ColRow(myShape.TextEffect.PresetTextEffect)
            MsgBox Join(s, vbCrLf) & vbCrLf & "位于第" & intarr(0) & "行;" & "第" & intarr(1) & "列"
        End If
    End If
    Next

End Sub

Function ColRow(i%) As Integer()
    Dim intarr() As Integer
    ReDim intarr(1)
    intarr(0) = Int(i / 6) + 1
    intarr(1) = i Mod 6 + 1
    ColRow = intarr
End Function

hexiaoer520

先谢谢版主  在请教下

intarr = ColRow(myShape.TextEffect.PresetTextEffect)
MsgBox Join(s, vbCrLf) & vbCrLf & "位于第" & intarr(0) & "行;" & "第" & intarr(1) & "列"
这句 不管字库里的样式选的是什么 如果我的艺术字有加粗或斜体的话

他的行列 都会边成 位于第0行 第-1列

不知道有没有判断有否加粗的同时 判断行 列

[此贴子已经被作者于2007-4-20 16:24:12编辑过]

hexiaoer520

QUOTE:

以下是引用hexiaoer520在2007-4-18 16:36:47的发言：

先谢谢版主  在请教下

intarr = ColRow(myShape.TextEffect.PresetTextEffect)
MsgBox Join(s, vbCrLf) & vbCrLf & "位于第" & intarr(0) & "行;" & "第" & intarr(1) & "列"
这句 不管字库里的样式选的是什么 如果我的艺术字有加粗或斜体的话

他的行列 都会边成 位于第0行 第-1列

不知道有没有判断有否加粗的同时 判断行 列

hexiaoer520

 判断艺术字插入的样式

 是艺术字库里的 哪种样式

 怎么判断