Universal file export

[Charles Hertz]

Hi,

I am looking for a way to create a universal export. Whatever the current path where is located the .fpd, I would like to export a 2D curve on the current user desktop.

For the moment my VBA macro works but only for my personnal dasktop path :

ActiveDatabase.Objects(Array(“pathname.2D”)).Export _
fpExportFormatEMF, “C:UsersXXXDesktopname.emf”

Does there exist a function which finds automatically the current user? Or a function which exports a .emf 2D curve on the current desktop used?

Thanks in advance.

[Charles Hertz]

Hi,

I am looking for a way to create a universal export. Whatever the current path where is located the .fpd, I would like to export a 2D curve on the current user desktop.

For the moment my VBA macro works but only for my personnal dasktop path :

ActiveDatabase.Objects(Array(“pathname.2D”)).Export _
fpExportFormatEMF, “C:UsersXXXDesktopname.emf”

Does there exist a function which finds automatically the current user? Or a function which exports a .emf 2D curve on the current desktop used?

Thanks in advance.

[Bernhard Kantz]

The Application object has a property UserName that you can use to build your desired Desktop path like [i]”C:Users” & Application.UserName & “Desktopname.emf”[/i].
The ActiveDatabase.Selection may be helpful for your general export task to let the user select the desired diagrams and export them to his desktop using a user-defined button associated with your macro.

[Author]

Posts