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!