Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 8 su 8

Aprire pptx in modalità Presentazione

  1. #1
    OsvaldoLaviosa non è in linea Topo di biblioteca
    Da un clic di pulsante vorrei aprire un file pptx, ma in modalità diretta Presentazione.
    Se c'è una via anche con FollowHyperlink, io lo preferirei. Nel frattempo avrei trovato una via da questo link
    https://risposta.org/5015982/aprire-...-da-access-vba
    ma provandolo su un mio codice, si apre in modalità normale. Questo il mio
    Private Sub Comando0_Click()
    Dim strPath As String
    strPath = CurrentProject.Path & "\Architettura Novecento.pptx"
    If Dir(strPath, vbDirectory) = "" Then
             MsgBox "La Presentazione non c'è"
        Else
             Dim pptPres As Object
             Dim pptApp As Object
             Set pptApp = CreateObject("Powerpoint.Application")
             Set pptPres = pptApp.Presentations.Open(strPath)
    End If
    End Sub
    
    ℹ️ Leggi di più su OsvaldoLaviosa ...

  2. #2
    Quote Originariamente inviato da OsvaldoLaviosa Visualizza il messaggio
    ...Se c'è una via anche con FollowHyperlink, io lo preferirei.
    Basta provare, no? La sintassi è sempre la stessa.

  3. #3
    OsvaldoLaviosa non è in linea Topo di biblioteca
    Non ti seguo. Se scrivo

    Application.FollowHyperlink strPath, , True
    
    si apre il pptx, ma non in modalità Presentazione.
    ℹ️ Leggi di più su OsvaldoLaviosa ...

  4. #4
    Quote Originariamente inviato da OsvaldoLaviosa Visualizza il messaggio
    si apre il pptx, ma non in modalità Presentazione.
    Non avevo capito che avevi provato ma che non si apriva in modalità presentazione. Ho l'avversione per PowerPoint.
    Lascia che mi attrezzi con un pptx e che faccia qualche prova.

  5. #5
    OsvaldoLaviosa non è in linea Topo di biblioteca
    Se con FollowHyperlink non si può proprio fare...non ho capito come devo interpretare il suggerimento del link che ho proposto. Se poniamo devo aggiungere Slide(1), ma non ho capito come sintatticamente.
    Mi viene il sospetto che la procedura del link che ho suggerito, punta su un file ppsx, secondo quanto leggo qui
    https://smartando.it/2019/08/10/come...ne-powerpoint/
    ℹ️ Leggi di più su OsvaldoLaviosa ...

  6. #6
    L'avatar di @Alex
    @Alex non è in linea Moderatore Globale
    https://docs.microsoft.com/en-us/off...entations.open

    Dim MyPPT As Object
    Set MyPPT = CreateObject("Powerpoint.application")
    MyPPT.Visible = True
    strPath="C:\..... Tuofile.pptx"
    MyPPT.presentations.Open strPath
    
    ℹ️ Leggi di più su @Alex ...

  7. #7
    OsvaldoLaviosa non è in linea Topo di biblioteca
    Ho scritto questo
    Private Sub Comando0_Click()
    Dim strPath As String
    strPath = CurrentProject.Path & "\Architettura Novecento.pptx"
    If Dir(strPath, vbDirectory) = "" Then
        MsgBox "La Presentazione non c'è"
        Else
        Dim MyPPT As Object
        Set MyPPT = CreateObject("Powerpoint.Application")
        MyPPT.Visible = True
        MyPPT.Presentations.Open strPath
    End If
    End Sub
    
    ma continua ad aprirlo NON in modalità Presentazione.
    ℹ️ Leggi di più su OsvaldoLaviosa ...

  8. #8
    OsvaldoLaviosa non è in linea Topo di biblioteca
    Leggendo per caso qui
    https://answers.microsoft.com/en-us/...0-a904c64f0f64
    ho adattato il codice alle mie esigenze (con un altro comando, riveduto e corretto)
    Private Sub Comando8_Click()
    Dim strPath As String
    strPath = CurrentProject.Path & "\" & Me!Nome & ".pptx"
    If Dir(strPath, vbDirectory) = "" Then
        MsgBox "La Presentazione non c'è"
        Else
        Dim MyPPT As Object
        Set MyPPT = CreateObject("Powerpoint.Application")
        MyPPT.Visible = True
        MyPPT.Presentations.Open strPath
        MyPPT.ActivePresentation.SlideShowSettings.Run
    End If
    End Sub
    
    Funziona.
    ℹ️ Leggi di più su OsvaldoLaviosa ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Aprire tabella in modalità nascosta
    Da seamission nel forum Microsoft Access
    Risposte: 6
    Ultimo Post: 20-03-2012, 14:53
  2. [Impress] Audio da .pptx che diventa bitmap
    Da jobv nel forum LibreOffice, OpenOffice e altro
    Risposte: 0
    Ultimo Post: 14-03-2012, 12:53
  3. Risposte: 2
    Ultimo Post: 01-06-2011, 08:50
  4. Aprire maschera modalità aggiunta!!
    Da bud77 nel forum Microsoft Word
    Risposte: 4
    Ultimo Post: 27-12-2005, 14:13
  5. Modalita provissoria
    Da Alfredo89 nel forum Networking e sicurezza
    Risposte: 4
    Ultimo Post: 08-12-2005, 14:39