Como selecionar um Shape no Powerpoint 2010 e colocar um texto

Question

Prezados, 

 

Se possivel, alguem pode me ajudar... estou tentando migrar umas macros do PW2003 para PW2010 e está dando pau nesta linha:

Public Function CopiaGeneralInformation(projeto, nomeprojeto, sponsor, areafuncional, responsible, start, finish, custo1, percenttime, percentcusto, attime)
    'Primeiro slide
    Dim tabela1 As String
    Dim tabela2 As String
    
    tabela1 = "Group 73"
    tabela2 = "Group 86"
    
    ActiveWindow.Selection.SlideRange.Shapes(tabela1).Select
    ActiveWindow.Selection.ShapeRange.GroupItems(3).Select
    

'O erro acontece neste comando abaixo:  ActiveWindow.Selection.ShapeRange.GroupItems(Index:=3).TextFrame.TextRange.Characters(start:=1, Length:=0).Select

'Ele dá um em tempo de execução falando que este membro só 'pode ser acessado para um grupo
    'ActiveWindow.Selection.ShapeRange.GroupItems(3).TextFrame.TextRange.Characters(start:=1, Length:=0).Select
    ActiveWindow.Selection.TextRange.Text = projeto
    ActiveWindow.Selection.ShapeRange.GroupItems(Index:=1).TextFrame.TextRange.Characters(start:=1, Length:=0).Select
    ActiveWindow.Selection.TextRange.Text = nomeprojeto
    'ActiveWindow.Selection.ShapeRange.GroupItems(Index:=1).TextFrame.TextRange.Characters(start:=1, Length:=0).Select
    'ActiveWindow.Selection.TextRange.Text = notinformed(sponsor)
    
    ActiveWindow.Selection.Unselect
    ActiveWindow.Selection.SlideRange.Shapes(tabela2).Select
    ActiveWindow.Selection.ShapeRange.GroupItems(Index:=15).TextFrame.TextRange.Characters(start:=1, Length:=0).Select
    ActiveWindow.Selection.TextRange.Text = notinformed(areafuncional)
    
    ActiveWindow.Selection.ShapeRange.GroupItems(Index:=13).TextFrame.TextRange.Characters(start:=1, Length:=0).Select
    ActiveWindow.Selection.TextRange.Text = responsible
    
    ActiveWindow.Selection.ShapeRange.GroupItems(Index:=11).TextFrame.TextRange.Characters(start:=1, Length:=0).Select
    ActiveWindow.Selection.TextRange.Text = EnglishDate(start) 'AQUI
    
    ActiveWindow.Selection.ShapeRange.GroupItems(Index:=9).TextFrame.TextRange.Characters(start:=1, Length:=0).Select
    ActiveWindow.Selection.TextRange.Text = EnglishDate(finish) 'AQUI
    
    ActiveWindow.Selection.ShapeRange.GroupItems(Index:=3).TextFrame.TextRange.Characters(start:=1, Length:=0).Select
    ActiveWindow.Selection.TextRange.Text = CStr(FormatCurrency(CCur(custo1) / 1000, 0)) + " K"
    
    ActiveWindow.Selection.ShapeRange.GroupItems(Index:=1).TextFrame.TextRange.Characters(start:=1, Length:=0).Select
    ActiveWindow.Selection.TextRange.Text = CStr(attime) + " d"
    
    ActiveWindow.Selection.ShapeRange.GroupItems(Index:=7).TextFrame.TextRange.Characters(start:=1, Length:=0).Select
    ActiveWindow.Selection.TextRange.Text = FormatPercent(percentcusto, 1)
    
    ActiveWindow.Selection.ShapeRange.GroupItems(Index:=5).TextFrame.TextRange.Characters(start:=1, Length:=0).Select
    ActiveWindow.Selection.TextRange.Text = FormatPercent(percenttime, 1)
    
    ActiveWindow.Selection.Unselect
    
End Function

 

Conto com a ajuda!