Make PowerPoint macro SaveAs overwrite without warning popup
Results 1 to 2 of 2

Thread: Make PowerPoint macro SaveAs overwrite without warning popup
Thanks Thanks: 0 Likes Likes: 0

  1. #1
    New Member
    Join Date
    Jun 2019
    Posts
    18
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Make PowerPoint macro SaveAs overwrite without warning popup

    Hi,

    is it possible to write a code to Excel VBA that saves a PowerPoint presentation to SharePoint with a dynamic name (changes according to a specific cell value) and overwrites the existing file, if there is one? This is my code now, and it doesn't work.

    Application.DisplayAlerts = False

    Dim path, newfname, frmt As String
    path = "https:\\docs.webpage.com\sites\sales" '<-- the folder
    newfname = wsdata.Range("L3") '<-- cell that the file name comes from
    frmt = VBA.Right(ppt_pres.Name, 4) '<-- i think this is the fileformat pptx

    If newfname <> False Then

    If Not Dir(newfname) <> "" Then
    ppt_pres.SaveAs Filename:=newfname
    Else
    On Error Resume Next

    If Err.Number = 1004 Then
    On Error GoTo 0
    Else
    ppt_pres.SaveAs Filename:=mypath & newfname & frmt & ".pptx", _
    FileFormat:=ppSaveAsOpenXMLPresentation, _

    End If
    End If
    End If

    Application.DisplayAlerts = True

  2. #2
    Board Regular pbornemeier's Avatar
    Join Date
    May 2005
    Location
    Virginia Beach, VA USA
    Posts
    3,636
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    1 Thread(s)

    Default Re: Make PowerPoint macro SaveAs overwrite without warning popup

    Application.DisplayAlerts = False
    should suppress the warning.

    Perhaps use
    Code:
    On Error Resume Next
    KILL mypath & newfname & frmt & ".pptx"
    On Error GoTo 0
    just prior to the save statement
    Phil

    - Use CODE tags to keep your code formatted. See: BB Tags
    - How to attach Screenshots
    - Try searching for your answer first, see how
    - Test and validate results for all code on a copy of your worksheet!! How do you use the code you just found?
    - Posting guidelines, forum rules and terms of use
    - Read the FAQs

Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •