我可以使用VBA更改Windows / Camera保存新图像的位置吗

时间:2019-05-02 20:46:29

标签: excel vba

我使用Excel VBA制作了一个不错的电子表格,以促进我们的建筑工地发展。它具有交互式按钮,可在Windows Surface Pro上运行。我通过Userforms和vba函数完成了所有工作。

其中一个按钮允许用户在表面上打开相机应用程序,以随时随地拍摄前进的照片。它运作良好,非常方便。虽然,窗口按日期将所有图片保存在同一文件夹中。

我想知道是否可以通过VBA或某种适用于我的工作簿的方式来更改新的图像保存位置。那有可能吗?默认情况下,它保存在我的图片文件夹中。还是你们想办法解决我的问题?

非常感谢您的宝贵时间!

我用这个简单的宏打开相机。 (为简便起见,我的桌面上有一个相机快捷方式)

Sub Open_Camera()

Dim MyFile As String
Dim Cmd As String
MyFile = "C:\Users\Name\Desktop\Camera.lnk"
Cmd = "RunDLL32.EXE shell32.dll,ShellExec_RunDLL "
Shell (Cmd & MyFile)

End Sub

我希望将其保存在一个可以指定名称和日期的文件夹中。(例如“我的图片\文件夹名称_日期\图片”。名称和日期信息在我的电子表格中。

0 个答案:

没有答案