！！！紧急求助！！！PPT中的文本的字体和类别大写如何设置？自己的反复出错

新诺司机-沃克灵

！！！紧急求助！！！PPT中的文本的字体和类别大写如何设置？自己的反复出错

这是我的Excel，将图片制作好了：



接下来用VBA代码导入新建的PPT中：

新诺司机-沃克灵

现在想调整我的字体大小和类型： 想改为：微软雅黑，28号字体

新诺司机-沃克灵

但是自己的代码老是出错： 不知道为什么？

新诺司机-沃克灵

这是附件：
1.zip (13.23 KB, 下载次数: 4)

2019-1-31 21:27 上传

点击文件名下载附件

新诺司机-沃克灵

这是我的全部代码：
Sub xx()

Dim t

t = Timer

Dim pptapp As PowerPoint.Application

Dim prt As PowerPoint.Presentation

Dim sld1 As PowerPoint.Slide



Set pptapp = New PowerPoint.Application

Set prt = pptapp.Presentations.Add(msoTrue)

pptapp.Visible = msoTrue

Set sld1 = prt.Slides.Add(1, ppLayoutBlank)

Sheets(1).ChartObjects(1).Copy

sld1.Shapes.Paste

With sld1.Shapes(1)

.Left = 10

.Top = 10

.ScaleWidth 1.8, msoFalse, msoScaleFromTopLeft

.ScaleHeight 1.8, msoFalse, msoScaleFromTopLeft

End With

Dim shp1

Set shp1 = sld1.Shapes.AddTextbox(msoTextOrientationHorizontal, 300, 300, 200, 50)

shp1.TextFrame.TextRange.Text = Range("A3")

shp1.TextFrame.TextRange.Font.Size = 28

shp1.TextFrame.TextRange.Font.Name = "微软雅黑"


MsgBox Timer - t

End Sub

新诺司机-沃克灵

麻烦大家帮我看一下！谢谢！！！

新诺司机-沃克灵

大神帮忙看一眼吧！！！