bom dia galera ,
Criei um modelo automatico de power point via macro (a pessoa entra com os valores no excel e a macro faz a apresentação)
O problema que estou tendo ocorre devido as versões . Aonde eu trabalho algumas maquinas estão com o pacote office 2016 e outras com o pacote 2010
objPPoint.ActivePresentation.Slides(7).Select
objPPoint.ActiveWindow.Selection.SlideRange.Shapes("Título1").Select
objPPoint.ActiveWindow.Selection.TextRange.Text = TitApres
Sheets("3. Parâmetros Chave").Range("Chave").Copy
objPPoint.ActivePresentation.Slides(7).Select
objPPoint.ActivePresentation.Slides(7).Shapes.SelectAll
objPPoint.ActiveWindow.View.PasteSpecial ppPasteEnhancedMetafile
objPPoint.ActiveWindow.Selection.SlideRange.Shapes("Imagem 1").Select
' o PROBLEMA ocorre aqui*
objPPoint.ActiveWindow.Selection.ShapeRange.IncrementLeft -15.75
objPPoint.ActiveWindow.Selection.ShapeRange.IncrementTop 15.25
objPPoint.ActiveWindow.Selection.ShapeRange.ScaleWidth 0.88506519213, msoFalse, msoScaleFromTopLeft
objPPoint.ActiveWindow.Selection.ShapeRange.ScaleHeight 0.88241545894, msoFalse, msoScaleFromBottomRight
Por padrão do office 2016 ao colar as imagens no power point ele cola como IMAGEM 1 . então para regular o tamanho uso a chamada
objPPoint.ActiveWindow.Selection.SlideRange.Shapes("Imagem 1").Select
No office 2010 por padrão a colagem da imagem se chama PICTURE 1 .
Eu queria ao fazer a colagem nomear o gráfico +- assim
Sheets("3. Parâmetros Chave").Range("Chave").Copy
objPPoint.ActivePresentation.Slides(7).Select
objPPoint.ActivePresentation.Slides(7).Shapes.SelectAll
objPPoint.ActiveWindow.View.PasteSpecial ppPasteEnhancedMetafile
'ActiveShapes.Name = "NOME DA IMAGEM"
objPPoint.ActiveWindow.Selection.SlideRange.Shapes("NOME DA IMAGEM").Select
Assim eu nao teria problemas em rodar em outra versão .
Alguem saberia solucionar meu problema?
Postado : 22/03/2017 6:58 am