xiaoyimi 发表于 2018-11-16 22:49:52

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

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

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





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

startup 发表于 2018-11-17 00:29:23

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



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

maybow 发表于 2018-11-17 00:40:46

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



不知道为什么？

lfgouugang 发表于 2018-11-17 01:39:23

这是附件：

gaoyiping 发表于 2018-11-17 01:47:04

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

bmcdliang 发表于 2018-11-17 01:53:08

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

znddpg 发表于 2018-11-17 01:56:48

大神帮忙看一眼吧！！！
页: [1]
查看完整版本: ！！！紧急求助！！！PPT中的文本的字体和类别大写如何设置？自己的反复出错