Results 1 to 3 of 3
  1. #1
    5 Star Lounger
    Join Date
    Mar 2001
    Location
    New York, NY
    Posts
    856
    Thanks
    0
    Thanked 9 Times in 8 Posts

    PowerPoint SaveAs Dialog

    I want to display the SaveAs dialog box in PowerPoint 2010. I also want to set the default folder. I'm using the following code, but the folder remains the folder of the open presentation. What must I do differently, or is there a better way to approach this? Thanks.

    Code:
    Dim sDir As String
        sDir = "H:\Data\PowerPoint\"
        
        ChDir sDir
        
        With Application.FileDialog(msoFileDialogSaveAs)
            
            .Show
            
        End With

  2. Subscribe to our Windows Secrets Newsletter - It's Free!

    Get our unique weekly Newsletter with tips and techniques, how to's and critical updates on Windows 7, Windows 8, Windows XP, Firefox, Internet Explorer, Google, etc. Join our 480,000 subscribers!

    Excel 2013: The Missing Manual

    + Get this BONUS — free!

    Get the most of Excel! Learn about new features, basics of creating a new spreadsheet and using the infamous Ribbon in the first chapter of Excel 2013: The Missing Manual - Subscribe and download Chapter 1 for free!

  3. #2
    Super Moderator
    Join Date
    Jan 2001
    Location
    Melbourne, Victoria, Australia
    Posts
    3,503
    Thanks
    3
    Thanked 140 Times in 133 Posts
    You were very close - this seems to work for me?
    Code:
      Dim sDir As String
      sDir = "H:\Data\PowerPoint\"
      With Application.FileDialog(msoFileDialogSaveAs)
          .InitialFileName = sDir
          .Show
      End With
    If sDir ends with a backslash the default filename is empty. If it ends without the slash then the last parameter is the default filename.
    Last edited by Andrew Lockton; 2014-05-02 at 01:26.
    Andrew Lockton, Chrysalis Design, Melbourne Australia

  4. #3
    5 Star Lounger
    Join Date
    Mar 2001
    Location
    New York, NY
    Posts
    856
    Thanks
    0
    Thanked 9 Times in 8 Posts
    Thank you. I was looking for .Name, which is what I use in Word. I should have looked more closely... I would have seen .InitialFileName, which is rather self-explanatory. Thanks again.

Posting Permissions

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