ppt2007下如何插入这样的艺术字

weiyingde

ppt2007下如何插入这样的艺术字，能给个动画最好。

weiyingde

再次求救了

weiyingde

求大侠指点迷迷津

dongdonggege

艺术字+三维样式19

weiyingde

dongdonggege 发表于 2016-9-17 11:32
艺术字+三维样式19

能否赐几句关键代码，我的电脑，不知抽什么风，录制宏，只能录下部分代码，最想得到的关键部分的代码，往往缺失。所以，很多看起来很容易的解决的问题，到我这儿，往往无解，很是郁闷。

weiyingde

况且ppt2010，录制宏都没有，更是无解。

dongdonggege

1. Private Sub CommandButton1_Click()
   
2.     Set shp = ActiveWindow.Selection.ShapeRange(1)
   
3.     With shp
   
4.     s = s & "图形的名称：" & .Name & Chr(10)
   
5.     s = s & "文本：" & .TextEffect.Text & Chr(10)
   
6.     s = s & "字体：" & .TextEffect.FontName & Chr(10)
   
7.     s = s & "字号：" & .TextEffect.FontSize & Chr(10)
   
8.     s = s & "对齐方式：" & .TextEffect.Alignment & Chr(10)
   
9.     s = s & "图形的类型：" & .Type & Chr(10)
   
10.     s = s & "艺术字的类型：" & .TextEffect.PresetTextEffect & Chr(10)
    
11.     MsgBox (s)
    
12.     End With
    
13.     '2007录制宏ALT+T + M + R
    
14.     'shapes类型shp.Type
    
15.     'http://www.exceltip.net/thread-8623-1-1.html
    
16.     '艺术字类型MsoPresetTextEffect 类型
    
17.     'http://www.feiesoft.com/vba/excel/xlmthaddtexteffect.htm
    
18. End Sub

复制代码

dongdonggege

MsoPresetTextEffect艺术字类型        数值
msoTextEffect1        0
msoTextEffect2        1
msoTextEffect3        2
msoTextEffect4        3
msoTextEffect5        4
msoTextEffect6        5
msoTextEffect7        6
msoTextEffect8        7
msoTextEffect9        8
msoTextEffect10        9
msoTextEffect11        10
msoTextEffect12        11
msoTextEffect13        12
msoTextEffect14        13
msoTextEffect15        14
msoTextEffect16        15
msoTextEffect17        16
msoTextEffect18        17
msoTextEffect19        18
msoTextEffect20        19
msoTextEffect21        20
msoTextEffect22        21
msoTextEffect23        22
msoTextEffect24        23
msoTextEffect25        24
msoTextEffect26        25
msoTextEffect27        26
msoTextEffect28        27
msoTextEffect29        28
msoTextEffect30        29
msoTextEffectMixed        　

weiyingde

我做了很多次尝试，还是没有取得上面的效果，不知是少了那个关键句，你帮我看看
Sub 宏()
    ActiveSheet.Shapes.AddTextEffect(msoTextEffect19, "测试的艺术字", "+mn-lt", 54, msoTrue, msoFalse, 245.3023622047, 2017.1220472441).Select
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 2)
        .ParagraphFormat.Alignment = msoAlignCenter
       With .Font
        .NameFarEast = "方正启体简体"
       End With
    Selection.ShapeRange.ShapeStyle = 22
    Selection.ShapeRange.ThreeD.PresetMaterial = msoMaterialPlastic
End With
End Sub

dongdonggege

插入艺术字

1. Sub 插入艺术字()
   
2.     Set sld = ActiveWindow.Selection.SlideRange(1)
   
3.     Set shp = sld.Shapes.AddTextEffect(msoTextEffect3, "张山乡中心学校", "宋体", 36#, msoFalse, msoFalse, 250#, 200)
   
4.     With shp
   
5.         '.Fill.ForeColor.RGB = RGB(255, 0, 0)
   
6.     End With
   
7. End Sub

复制代码