VB调用PhotoShop自动化接口

介绍

你有一堆照片，但他们看起来不是那么好。你想增加对比度，或改善颜色。幸运的是，Adobe Photoshop CS2具有出色的自动对比功能。没有问题，如果它只有几十张图片，手工处理下还行。如果有数百甚至数千？打开Photoshop中的每个图片，应用调整，保存它哦，这是无聊也费事的事情。为什么不自动化所有这些任务，让我们躺在海滩看风景，同时让Photoshop自动工作呢？

使用代码

我们来做八个简单的步骤：

创建Windows应用程序项目。
添加对Photoshop对象库的引用。

导入ps接口

在我们的应用程序中使用Photoshop对象，请导入Photoshop命名空间：

Imports Photoshop

声明我们要处理的两个对象（Photoshop Application对象和Photoshop Document对象）：

Dim appRef As Photoshop.Application
Dim currentDoc As Photoshop.Document

现在，我们应该定义包含我们的图片的文件夹和改进图片的文件夹。添加两个FolderBrowseDialog控件（输入和输出文件夹可以相同，图片将被覆盖;但是并不推荐这样用）。另外，添加必要的TextBoxes和Button控件。

添加Button控件以启动该过程并完成应用程序。

加载窗体时打开Photoshop应用程序。将Photoshop设置为不可见（我们只是在启动看到它）。

appRef = New ApplicationClass
appRef.Visible = False
appRef.DisplayDialogs = PsDialogModes.psDisplayNoDialogs
appRef.PlaybackDisplayDialogs = PsDialogModes.psDisplayNoDialogs

在应用程序退出事件中，不要忘了退出Photoshop。

appRef.Quit()

最后，最后一步 - 处理文件夹中的每个图像。

Dim files() As String = IO.Directory.GetFiles(txtFrom.Text, "*.jpg")
For Each fl As String In files
currentDoc = appRef.Open(fl)
Dim currentLayer As Photoshop.ArtLayer = _
CType(currentDoc.ActiveLayer, Photoshop.ArtLayer)
currentLayer.AutoContrast()
'currentLayer.AutoLevels()
Dim jpeg As New Photoshop.JPEGSaveOptions
jpeg.Quality = 8
currentDoc.SaveAs(txtTo.Text + _
IO.Path.GetFileName(fl), jpeg, False, 2)
currentDoc.Close()
Next

享受你的生活，当你回来的时候，你会发现你所有的照片都完美无缺。

友情链接