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

dongdonggege · 发表于 2016-9-17 21:56

你这一时是ppt，一时是excel，我不是全能的。

dongdonggege · 发表于 2016-9-17 21:59

数字太大关系，改成msoTextEffect19, "测试的艺术字", "隶书", 54, msoTrue, msoFalse, 200#, 200，excel2007通过

dongdonggege · 发表于 2016-9-17 22:20

ppt2010没安装，2007通过

Sub 插入艺术字2007通过()
Set shp = ActivePresentation.Slides(1).Shapes.AddTextEffect(msoTextEffect19, "测试的艺术字", "+mn-lt", 54, msoTrue, msoFalse, 200#, 200)
With shp.TextFrame.TextRange
.ParagraphFormat.Alignment = msoAlignCenter
With .Font
.NameFarEast = "方正启体简体"
End With
With shp
.ShapeStyle = 19
.ThreeD.PresetMaterial = msoMaterialPlastic
End With
End With
End Sub

复制代码

dongdonggege · 发表于 2016-9-17 22:25

也许，这样排版更科学

Sub 插入艺术字2()
Set shp = ActivePresentation.Slides(1).Shapes.AddTextEffect(msoTextEffect19, "测试的艺术字", "+mn-lt", 54, msoTrue, msoFalse, 200#, 200)
With shp
.TextFrame.TextRange.ParagraphFormat.Alignment = msoAlignCenter
.ShapeStyle = 19
.ThreeD.PresetMaterial = msoMaterialPlastic
With .TextFrame.TextRange.Font
.NameFarEast = "方正启体简体"
End With
End With
End Sub

复制代码

hunghe · 发表于 2016-9-18 15:11

感谢dongdonggege得分享，正在学习中！！！！！！！！！！！！

weiyingde · 发表于 2016-9-18 15:15

dongdonggege 发表于 2016-9-17 22:25
也许，这样排版更科学

因为ppt2010没有录制宏功能，我是在excel下录制的。
感谢你费心指教，可还是与要求的不一样。我也不知那是怎么做成的。
会不会是用其他的插件制作的呢？
因为我通过调用ppt格式对话框，慢慢的调试，也最终没有结果。
如果你今后有发现，继续告诉我，谢谢了，谢谢了！！

weiyingde · 发表于 2016-9-21 08:18

weiyingde 发表于 2016-9-18 15:15
因为ppt2010没有录制宏功能，我是在excel下录制的。
感谢你费心指教，可还是与要求的不一样。我也不知那 ...

在无极先生的指教下妥善解决了，代码如下：
Sub 艺术字2()
Dim sld As Slide
Set sld = ActivePresentation.SlideShowWindow.View.Slide
With sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 100, 150, 50).TextFrame2
      .WordWrap = msoFalse
      .AutoSize = msoAutoSizeShapeToFitText
      .TextRange.Text = "艺术字测试"
      .TextRange.Font.Name = "Aharoni"
      .TextRange.Font.NameFarEast = "黑体"
      .TextRange.Font.Size = 54
      .TextRange.Font.Line.Visible = False
      .TextRange.Font.Bold = msoCTrue
      .TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 255)
   With .ThreeD
         .PresetMaterial = msoMaterialMatte
         .ExtrusionColorType = msoExtrusionColorCustom
         .ExtrusionColor = RGB(255, 0, 255)
         .Depth = 9600
         .BevelBottomType = msoBevelNone
         .BevelTopType = msoBevelNone
         .SetPresetCamera msoCameraLegacyPerspectiveTopRight
         .PresetLighting = msoLightRigLegacyFlat3
         .PresetLightingDirection = msoLightingBottom
      End With
End With
End Sub

zjd2009 · 发表于 2016-9-24 10:57

大侠指点迷迷津

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

[求助] ppt2007下如何插入这样的艺术字

评分