Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
DUVIDA VBA- POWER P...
 
Notifications
Clear all

DUVIDA VBA- POWER POINT

 
2024 - VBA & Macros
Post Recente por felipemazz 8 anos atrás
4 Posts
3 Usuários
0 Reactions
969 Visualizações
RSS
 mgr1
(@mgr1)
Posts: 3
New Member
Topic starter
 

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
 mgr1
(@mgr1)
Posts: 3
New Member
Topic starter
 

Poxa galera meu problema nem é dificil assim, é pq sou meio iniciante

alguem ajuda ai :(

 
Postado : 31/03/2017 7:07 am
 Romanha
(@romanha)
Posts: 104
Estimable Member
 

Mgr1, bom dia, boa tarde, boa noite!

Para melhor ajuda envie a planilha para que possamos entender o que deseja fazer.

Att Jason Romanha

Se a resposta foi últil, gentileza, Amigo,clique na mãozinha ao lado direito da sua tela. canto superior.

" Aquele que habita no esconderijo do Altissimo, à sombra do Onipotente descansará. Salmos 91:1"

Atenciosamente.

Jason Romanha

 
Postado : 31/03/2017 9:30 am
felipemazz
 felipemazz
(@felipemazz)
Posts: 59
Trusted Member
 

Amigo, utilize os códigos em code para que fique mais fácil ler e entender suas dúvidas! Tive que procurar as linhas em que você digitava o seu problema hahaha
Mas enfim, pelo que entendi o problema é quando o usuário está usando alguma versão diferente da que você programou certo?
Para isso, veja este vídeo a partir deste tempo que coloquei já (O vídeo não é meu, eu não conheço o autor, e todo e qualquer crédito deve ir pra ele)!

https://youtu.be/z9CHXsdXRAA?t=90

Tem alguns comandos que você consegue descobrir qual versão o usuário está usando, e através de IFs simples, você consgue alterar os códigos para a versão correta. Entendeu?

Edit: AH! Não esquece de dar Joinhas se te ajudou! :D

 
Postado : 31/03/2017 1:12 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico