Solved

Powerpoint VBA: Set default CommonDialog path to DESKTOP

Posted on 2004-08-17
2
726 Views
Last Modified: 2008-01-09
I have a CommonDialog box in a PowerPoint application and was wondering if its possible to set the InitialDir to the DESKTOP instead of just the C Drive.  Is this possible?

Thanks!

Code:

Slide3172.CommonDialog1.CancelError = True
Slide3172.CommonDialog1.Filter = "PowerPoint Presentations (*.ppt)|*.ppt"
Slide3172.CommonDialog1.InitDir = "c:\"
Slide3172.CommonDialog1.ShowSave
DoEvents

If Slide3172.CommonDialog1.FileName <> "" Then
    ActivePresentation.SaveAs FileName:=Slide3172.CommonDialog1.FileName
    DoEvents
End If
0
Comment
Question by:kirkhilles
2 Comments
 
LVL 3

Accepted Solution

by:
Belthazor earned 250 total points
ID: 11828238
Hi,
try this:

CommonDialog1.InitDir = Environ("USERPROFILE") & "\Desktop"

move on
Belthazor
0

Featured Post

Three Reasons Why Backup is Strategic

Backup is strategic to your business because your data is strategic to your business. Without backup, your business will fail. This white paper explains why it is vital for you to design and immediately execute a backup strategy to protect 100 percent of your data.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Some time ago I was asked to create a VBA function that would calculate a check digit for an input number, using the following procedure: First, sum up all the individual digits in the number If that sum value has more than one digit, then sum up …
My experience with Windows 10 over a one year period and suggestions for smooth operation
This video shows where to find the word count, how to display it, and what it breaks down to in Microsoft Word.
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels. Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question