Comando Salvar Como

[Guest Jean Fábio]

Amigos, sou leigo em Visual Basic, porém gostaria de colocar um botão de SALVAR COMO dentro de uma apresentação do Power Point, coloquei o botão, mas não sei configura-lo para que quando o usuario click abra a janela normal do Windows para SALVAR COMO.

Alguém pode me ajudar?

[kuroi]

como assim dentro da apresentacao?? isso é visual basic ou vba??

se for visual basic use o Common Dialog Control. se for vba num faco ideia, mas avisa que eu movo pra secao correta.

[Guest Jean Fábio]

Isso mesmo...dentro da apresentação, ou seja a ideia é criar um quetinonario de perguntas e respostas de multipla escolha, sendo que na primeira ou ultima página da apresentação, a Ideia é primeira informação que a pessoa entraria seria o nome completo, depois um botào de SALVAR, que quando a pessoa clicasse ai abriria uma janela onde a pessoa daria um nome e salvaria aquela apresentação com as respostas dadas.

Coloquei o botào, assim bastaria que cada pessoa desse um nome diferente e então salvaria varias apresentações com respostas diferentes.

Quando dou duplo click no botao na hora da edição no Power Point abre uma janela do Visual basic com comandos a serem colocados...e ai não sei o que fazer!

Assim

Private Sub CommandButton1_Click()

??????

End Sub

Muito obrigado pela atenção!

[Graymalkin]

Você pode colocar um componente CommonDialogs (clicando em "Mais controles" na barra de controles) e depois usar o seguinte código (dentro do evento Click do botão):

    CommonDialog1.CancelError = True
    CommonDialog1.Filter = "Apresentação do PowerPoint|*.ppt"
    
    Err.Clear
    On Error Resume Next
    CommonDialog1.ShowSave
    If Err.Number = 0 Then
        ActivePresentation.SaveAs CommonDialog1.FileName
    End If
    On Error GoTo 0

Sendo que eu não sei se as "respostas" serão salvas, já que eu não uso PowerPoint.

Abraços,

Graymalkin

PS: Movido para VBA.