junl_liu 发表于 2018-11-13 15:31:01

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

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

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





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

小琦11 发表于 2018-11-13 16:36:53

现在想调整我的字体大小和类型：



想改为：微软雅黑，28号字体

rickychoi 发表于 2018-11-13 16:58:21

但是自己的代码老是出错：



不知道为什么？

bitman 发表于 2018-11-13 17:07:48

这是附件：

qaz5210 发表于 2018-11-13 17:57:49

这是我的全部代码：
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

explorer 发表于 2018-11-13 17:58:12

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

alleisure 发表于 2018-11-13 18:01:15

大神帮忙看一眼吧！！！

huangshaoyu 发表于 2020-5-22 21:00:58

下载下来看看，应该会有用！
页: [1]
查看完整版本: ！！！紧急求助！！！PPT中的文本的字体和类别大写如何设置？自己的反复出错