CorelDRAW VBA - 弹出另存为 对话框 代码是什么
时间: 2024-10-01 22:07:42 浏览: 12
在CorelDRAW VBA (Visual Basic for Applications) 中,如果你想通过宏操作弹出保存文件的“另存为”对话框,你可以使用以下代码作为参考:
```vba
Sub SaveAsDialog()
'声明并创建一个新的SaveFileDialog对象
Dim saveFileDialog As FileDialog
Set saveFileDialog = Application.FileDialog(msoFileDialogSaveAs)
'设置对话框属性
saveFileDialog.Title = "保存文件" '自定义标题
saveFileDialog.InitialFileName = "默认文件名" '初始化的文件名
saveFileDialog.Defaultextension = "*.cdr" '默认扩展名
saveFileDialog.Filter = "CorelDRAW 图形(*.cdr)|*.cdr|所有文件 (*.*)|*.*" '过滤器选择
'如果用户点击了保存按钮,则打开对话框并获取路径
If saveFileDialog.Show = -1 Then
'保存文件
ActiveDocument.SaveAs Filename:=saveFileDialog.SelectedItems(1), FileFormat:=wdFormatCorelDraw
End If
'释放对FileDialog对象的引用
Set saveFileDialog = Nothing
End Sub
```
这段代码首先创建了一个`FileDialog`对象,并设置了对话框的标题、初始文件名、默认扩展名和文件过滤器。然后当用户点击“保存”按钮时,会显示这个对话框让用户指定文件保存的位置和名称。最后别忘了关闭文件对话框并将引用置空。