我成功地在PowerPoint模块中使用了该代码,但是当我将其移动到我的Excel模块中时,它给了我几个问题。我将PowerPoint应用程序嵌入到Excel表格1中。我们的目标是从excel中生成powerpoint,并且在出现在powerpoint幻灯片上时用公司名称出现在excel范围内的公司名称替换公司名称。 我得到错误429 ActiveX组件不能在创建对象“对于每个osld在ActivePresentation.Slides。是我的简报不积极?任何帮助,将不胜感激。使用Excel/PowerPoint 2010中使用VBA在Excel 2010中查找并替换Powerpoint 2010中的文本
Sub changeme(sFindMe As String, sSwapme As String)
Dim osld As Slide
Dim oshp As Shape
Dim otemp As TextRange
Dim otext As TextRange
Dim Inewstart As Integer
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.HasTextFrame Then
If oshp.TextFrame.HasText Then
Set otext = oshp.TextFrame.TextRange
Set otemp = otext.Replace(sFindMe, sSwapme, , msoFalse, msoFalse)
Do While Not otemp Is Nothing
Inewstart = otemp.Start + otemp.Length
Set otemp = otext.Replace(sFindMe, sSwapme, Inewstart, msoFalse, msoFalse)
Loop
End If
End If
Next oshp
Next osld
End Sub
'-------------------------------------------------------------------------
Sub swap()
Dim sFindMe As String
Dim sSwapme As String
Dim ppApp As PowerPoint.Application
Dim ppPreso As PowerPoint.Presentation
'Start Powerpoint
'Look for existing instance
On Error Resume Next
Set ppApp = GetObject(, "PowerPoint.Application")
On Error Goto 0
'Create new instance if no instance exists
Set ppApp = CreateObject("Powerpoint.Application")
'Open Template in word
With Sheets("Sheet1").Shapes("Object 1").OLEFormat.Verb(Verb:=xlVerbOpen)
End With
'Make it visible
ppApp.Visible = True
sFindMe = "Name To Find"
'change this to suit
sSwapme = "New Name"
Call changeme(sFindMe, sSwapme)
'sFindMe = "<find2>"
'sSwapme = ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange
'Call changeme(sFindMe, sSwapme)
End Sub
您的ppt在Excel中不是主动** ** - 当您引用ActivePresentation时,您需要包含'ppApp'参考:即。 'ppApp.ActivePresentation.Slides' – 2012-03-21 20:34:42