PPTX 2007 - VBA: если я создаю powerpoint pres из кода доступа за формой, то как мне запросить сохранение ppt файла в конце - PullRequest
Новая
       19

PPTX 2007 - VBA: если я создаю powerpoint pres из кода доступа за формой, то как мне запросить сохранение ppt файла в конце

2 голосов
/ 24 июня 2010

У меня есть форма доступа, которая создает файл ppt (набор слайдов) из информации в форме доступа / таблицах. Я использую файл шаблона в папке утилит, которая находится в той же папке, что и сам файл доступа. все работает отлично, кроме одного маленького кусочка.

Я хотел бы знать, как после того, как я пробежал все остальное в подпрограмме, которая создает ppt, как я могу заставить вновь созданный файл ppt запросить сохранить файл как что-то еще, кроме template.ppt. *

я думаю что-то вроде 

   ppt.save

работает. однако мне нужно что-то вроде «сохранить как» ... и даже по умолчанию, если это возможно.

большое спасибо .... я не смог случайно наткнуться на это.

Justin

1 Ответ

2 голосов
/ 24 июня 2010

Как насчет: 

Dim dlgSaveAs As FileDialog
Dim strMyFile As String

Set dlgSaveAs = Application.FileDialog(fileDialogType:=msoFileDialogSaveAs)
With dlgSaveAs
    .InitialFileName = "Presentation2_" & Format(Date, "yyyy-mm-dd")
    If .Show = -1 Then
        strMyFile = .SelectedItems(1)
        MsgBox strMyFile
        ''-- save your file to strMyFile here
    ''Else
        ''-- The user pressed Cancel.
    End If
End With
Set dlgSaveAs = Nothing

От: http://www.vbforums.com/showthread.php?t=521968

...