none
Como selecionar um Shape no Powerpoint 2010 e colocar um texto RRS feed

  • Pergunta

  • 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!

    terça-feira, 31 de janeiro de 2012 11:30