VBA + Image J批量图片处理

已于 2024-09-26 09:02:48 修改
阅读量1.1k 收藏 16
点赞数 17
分类专栏： VBA进阶 文章标签： windows 自动化脚本 批处理 java excel VBA 图片处理
于 2024-09-25 21:48:08 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/m0_62872215/article/details/142493536
版权

Excel VBA在处理批量数据时具有便捷高效的特点，也可以基于数据绘图，但是在处理图片的能力却略显不足，而Image J[1]这一开源的图像处理软件在图像处理方面的功能则非常强大，同时由于Image J可以运扩展的脚本（macro），因此在实际应用中可以结合VBA和Image J来处理需要导入excel表格的图片。

如下图所示，在一个文件夹中有多张（以3张举例）Raw格式的图片，现在需要将它们转换成Bmp格式，同时对Bmp格式图片进行增加对比度处理，并把这两种类型的图片读入Excel表格中按组放置，左边是转换后的Bmp格式图片，右边是对比度处理后的Bmp图片。

raw格式图片

Image J软件界面，其中plugins >> Macros可以运行扩展的脚本。

本案例的策略是利用VBA遍历获取每一个图片文件的名称，然后将处理图片的代码写入到Image J可以运行的Ijm格式文件中，再用Image J运行脚本逐张处理图片，最后再用VBA把图片导入到excel指定位置上。

Image J软件界面

具体实现代码如下：

Sub Find_Lot_List()

    BookFileName = ThisWorkbook.Name
    
    Dim i, Total_TXTfiles As Integer
    Dim path, TxtFileName2nd As String
    Dim Total_lot_Count As Integer
    Dim ppFileName As String

    Set shLotList = Workbooks(BookFileName).Worksheets("lot_list")
    
    path = shLotList.Cells(1, 2)
    
    
    shLotList.Select
    shLotList.Rows("2:65534").Select
    Selection.ClearContents

    
    Total_TXTfiles = 0
    CheckFileName = "*.raw"
    
    TxtFileName2nd = Dir(IIf(Right(path, 1) <> "\", path & "\", path) & CheckFileName)
    
    Do While TxtFileName2nd <> ""
            
        shLotList.Cells(Total_TXTfiles + 2, 1) = TxtFileName2nd 'IIf(Right(path, 1) <> "\", path & "\", path) & TxtFileName2nd
        
        shLotList.Cells(Total_TXTfiles + 2, 2) = FileDateTime(path & "\" & TxtFileName2nd)
        
        Total_TXTfiles = Total_TXTfiles + 1
        
        TxtFileName2nd = Dir()

    Loop

    Total_lot_Count = Total_TXTfiles
 
 '将B列数据（测试时间）按照顺序排列，可以用来映射图片与数据，保证图片与数据一一对应
    
    shLotList.Sort.SortFields.Add Key:=Range("B1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With shLotList.Sort
        .SetRange Range("A2:B10000")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    ppFileName = IIf(Right(path, 1) <> "\", path & "\", path) & "Raw to" & " " & shLotList.Cells(1, 16) & "_1440x1080.ijm"
    
    xActionMarco1 = "open("""
    xActionMarco2 = """);"
    
    xMarcoPath = Replace(path, "\", "\\")

'''''下述代码是利用VBA将Java代码写成Image J可以运行的脚本    
'''''***值得注意的是，利用Image J转换图片格式需注意图片本身的bite数和分辨率***

    Open ppFileName For Output As #1
    
    For i = 1 To Total_lot_Count
    
'        Print #1, "open(""" & IIf(Right(xMarcoPath, 1) <> "\\", xMarcoPath & "\\", xMarcoPath) & shLotList.Cells(i + 1, 1) & """);"

         Print #1, "run(""Raw..."",""open=[" & IIf(Right(xMarcoPath, 1) <> "\\", xMarcoPath & "\\", xMarcoPath) & shLotList.Cells(i + 1, 1) & "] image=[16-bit Unsigned] width=1440 height=1080 offset=0 number=1 gap=0 little-endian"");"
         
         Print #1, "run(""Appearance..."", ""antialiased menu=15 16-bit=[10-bit (0-1023)]"");"
         
'        Debug.Print "run(""Bandpass Filter..."", ""filter_large=40 filter_small=3 suppress=None tolerance=5 autoscale saturate"");"
        xNewFileName = Replace(shLotList.Cells(i + 1, 1), ".raw", "." & shLotList.Cells(1, 16))
        
        Print #1, "saveAs(""BMP""" & ",""" & IIf(Right(xMarcoPath, 1) <> "\\", xMarcoPath & "\\", xMarcoPath) & xNewFileName & """);"
        
        Print #1, "run(""Bandpass Filter..."", ""filter_large=40 filter_small=3 suppress=None tolerance=5 autoscale saturate"");"
        
        Print #1, "saveAs(""BMP""" & ",""" & IIf(Right(xMarcoPath, 1) <> "\\", xMarcoPath & "\\", xMarcoPath) & "Enhanced" & xNewFileName & """);"
        
        Print #1, "close();"
    Next
    
    Close #1

End Sub



Sub Image_Output()

    Call clearsheet

    Set shimage = Worksheets("Image_List")
    Set shLotList = Worksheets("lot_list")
    
    DATALOG_PATH = IIf(Right(shLotList.Cells(1, 2), 1) <> "\", shLotList.Cells(1, 2) & "\", shLotList.Cells(1, 2))

    CheckFileName = "*." & shLotList.Cells(1, 16)
           
'    BmpFilename = Dir(DATALOG_PATH & CheckFileName
    i_list = 2
    i = 0
    For i_list = 2 To shLotList.Cells(i_list, 1).End(xlDown).Row
        If shLotList.Cells(i_list, 1) <> "" Then

            BmpFilename = Left(shLotList.Cells(i_list, 1), Len(shLotList.Cells(i_list, 1)) - 4) & ".bmp"
            BmpEnhanced = "Enhanced" & Left(shLotList.Cells(i_list, 1), Len(shLotList.Cells(i_list, 1)) - 4) & ".bmp"
    
        End If

        shimage.Activate
    
        Dim varRow, PicCol, PicFileName, PicPath, PicLeft, PicTop, PicWidth, PicHeight
        PicCol = 2
        varRow = 0
 
'        Do While BmpFilename <> ""
    
            shimage.Cells(i * 2 + 1, varRow + 2) = BmpFilename: shimage.Cells(i * 2 + 1, varRow + 3) = BmpEnhanced
            shimage.Rows(i * 2 + 2).Select
            Cells(2 * i + 2, varRow + 2).RowHeight = 113
            Cells(2 * i + 2, varRow + 2).ColumnWidth = 18.75
            PicLeft = Cells(2 * i + 2, varRow + 2).Left
            PicTop = Cells(2 * i + 2, varRow + 2).Top
            PicWidth = Cells(2 * i + 2, varRow + 2).Width
            PicHeight = Cells(2 * i + 2, varRow + 2).Height
            ActiveSheet.Shapes.AddPicture DATALOG_PATH & BmpFilename, msoFalse, msoTrue, PicLeft, PicTop, PicWidth, PicHeight
            PicLeft = 0.75
            PicTop = 0.75
            PicWidth = 113.25
            PicHeight = 84.75
            shimage.Rows(i * 2 + 3).Select
            Cells(2 * i + 2, varRow + 3).RowHeight = 113
            Cells(2 * i + 2, varRow + 3).ColumnWidth = 18.75
            PicLeft = Cells(2 * i + 2, varRow + 3).Left
            PicTop = Cells(2 * i + 2, varRow + 3).Top
            PicWidth = Cells(2 * i + 2, varRow + 3).Width
            PicHeight = Cells(2 * i + 2, varRow + 3).Height
            ActiveSheet.Shapes.AddPicture DATALOG_PATH & BmpEnhanced, msoFalse, msoTrue, PicLeft, PicTop, PicWidth, PicHeight
            PicLeft = 0.75
            PicTop = 0.75
            PicWidth = 113.25
            PicHeight = 84.75
            i = i + 1
    Next
End Sub

Sub clearsheet()

Set shLotList = Worksheets("lot_list")
Set Image_List = Worksheets("Image_List")

Image_List.Select
Image_List.Rows("1:65534").Select
Selection.ClearContents
Image_List.Range("A1").Select


Dim Sh As Shape

With Worksheets("Image_List")

   For Each Sh In .Shapes

         Sh.Delete

    Next Sh

End With


shLotList.Activate

End Sub

将目标路径填入”B1"单元格，按钮“Start”对应代码“Find_Lot_List”模块的代码，按钮“Image Output”对应“Image_Output”模块的代码。
点击“Start”运行上述代码,可以获取指定路径下的Raw图片文件和测试时间。

Image output用户界面

在获取每张raw图片名称的同时也将执行指令写入了Ijm文件。

Image J macro
鼠标右键编辑打开ijm文件，可以看到VBA逐行写入的macro指令；值得一提的是，此处的代码是基于java书写的，如果对于该语言不熟悉的人可以利用Image J录制操作的办法获取对应的macro代码[2,3]。

Image J macro code
点击Image J的Plugins >> Macro >>Run选项卡，然后将上述Ijm文件的路径填进去，即可运行该脚本；或者直接将Ijm文件用鼠标拖拽至软件选项卡上，即可运行该脚本。

待图片逐张处理结束，可以看到目标文件夹下多了bmp格式和Enhanced后的图片（Enhanced操作是指增加了图片的对比度，对应的手动操作是Image J打开Raw格式图片 >>Process >> FFT >>Bandpass Filter, 该图片处理方法作为示范，其他操作可以参照Image J的用法[4]，代码可以参考Macro录制的办法。）

image output
在得到上述图像后，点击“Image Output”按钮把Raw转换后的Bmp和进一步处理后的 Bmp图片成组地按照测试时间顺序放在excel指定位置上，同时名称写入每个图片上方单元格作为标识。

Image output图片

完成以上的操作后，即可以实现批量将Raw图片格式转换成Bmp格式（其他格式转换也同理），同时也可以针对图片批量进一步处理（比如增强对比），最后可以将处理后的图片按照测试时间的顺序放在指定的Excel中，能够高效快速得到图片的识别和对比效果。

在文章的最后，所有关于Image J软件的使用，都推荐使用Image J 官方说明文档，里面有详细的用法解释和数以千计的实例参考，如果阅读起来有困难的可以参考CSDN或者网页上各位作者写的专题文章。

参考阅读文章：
[1]Image J 百度介绍
[2] ImageJ实用技巧——宏记录器(解放双手篇)
[3]ImageJ脚本初步：宏录制
[4]Image J官方说明文档

ImageJ图像处理批量操作
黑瞎子的博客
11-11 5999
ImageJ有哪些功能？ 可以展示、分析、处理、保存以及打印（输出）8-bit、16-bit、32-bit的图像。 可以根据定义的选择计算区域以及像素值的统计。 可以进行几何转化，比如缩放比例、旋转、翻转（flips）。 具备空间校准以提供现实世界维度的测量，比如毫米（mm）单位的测量。 以上说了这么多功能，但你知道怎么高效率地使用ImageJ这个工具吗？ 当你知道批量处理之后，你会觉得以前的操作方法太费手了。下面我给大家详细介绍ImageJ批量处理的方法。 例子：将多张图片raw格式转为png
Excel+VBA+FFmpeg全能图片处理利器：批量选择、调整尺寸、压缩质量、图片合并，水平垂直合并一键搞定！
最新发布
CSDN_xzy的博客
12-18 1261
多功能集成，一站式解决方案集成图片的批量选择、调整尺寸、压缩质量以及合并功能，满足在不同场景下的多样化需求，无需切换多个软件工具。本文详细解析了一段功能强大的Excel VBA脚本，涵盖了图片路径选择、信息获取、格式化、水平和垂直合并以及进程管理等多项功能。通过结合Excel的强大数据处理能力和FFmpeg的高效图像处理能力，该脚本能够显著提升图像处理的效率和准确性。
用VBA实现EXCEL中成批图片的处理
08-24
用VBA实现EXCEL中成批图片的处理 花钱下的。。。哎，给大家分享吧
【计算成像】ImageJ 批量操作
LWuoa的博客
11-18 1375
如何用ImageJ实现图片批量处理
ImageJ批量将大图分割为多个小图并分别保存
qq_42940869的博客
07-25 7508
有时候我们拍摄的图片太大了，想要把图片分割为多个标准的小图，便于观察。使用ImageJ的Process->Batch->Macro批处理方法即可做到，您只需要在Input一栏填入您的原始图像所在路径，Output一栏空着就行，然后在代码框中填入以下代码（您仅需修改最上面的五行参数即可），点击process即可一键完成。.............................................
vba处理word图像
12-17
vba word处理的一个例子
超好用的批量图片处理软件
02-03
超好用的批量图片处理软件 改大小,改各式 重命名~
VBA自动化项目：批量处理Excel工作表中的图片实战指南
[VBA自动化项目：批量处理Excel工作表中的图片实战指南](https://files.codingninjas.in/article_images/range-object-5-1650813249.webp) # 摘要 VBA（Visual Basic for Applications）作为一种广泛应用的编程语言...
【VBA图片批量提取】：自定义函数与宏结合的高级应用案例
![【VBA图片批量提取】...接着，详细阐述了VBA在图片批量提取中的实践操作，包括需求分析、方案设计、自定义函数的编写及应用，以及图片批量处理的流程优化和管理。通过案例研究，本文进一步展示了VBA图片批量提取的实
自动批量生成VB控件
qq_45421658的博客
09-25 646
自动批量生成VB控件内容总结代码 内容 最近想做一个象棋程序，想用Image控件来加载棋子，这样，每个格就要放一个Image控件，共要制作90个Image控件，如下图： 先别说一个一个画了，就是复制、粘贴，然后再排版也是一件非常麻烦的事情，难道是我的方法不对？因为对我来说，编程是业余爱好，且属于闭门造车型的，没人教我怎么去写这样的程序，我觉得应该这样写，所以就这样做了。能不能想个办法自动生成呢？先去看一下VB源代码吧！找到保存的文件（Form2.frm），用记事本打开查看一下，原来就是个文本文件，如下图：
vba 插入图片
03-19
根据某一列的值获取相应的图片名称，插入到某一列
ImageJ-图片处理软件
06-14
非常好用的一款java开发的图片识别软件，功能强大，简单易用。
ImageJ的大量插件
04-06
ImageJ是一个强大的图像处理与分析工具。ImageJ具有很强的扩展性,其已经有300多个插件可用。ImageJ也可以做为一个图像处理工具包,用于开发applets,servlets或其它应用程序。ImageJ是当前最快的纯Java图像处理程序。
【HR效率革命】：用Excel VBA批量打造简历，省时省力
!... # 摘要 随着自动化办公需求的增加，Excel VBA在...进一步探索了通过引入外部数据源和应用高级格式样式来批量处理简历的高级技巧，以及在人力资源部门中优化工作流程和处理复杂简历批量的实例。针对Excel VBA在简历制
[分享] VBA中使用WIA处理本地图像
landgis的博客
07-28 1307
然而，为了保护原来的照片，不能直接通过修改该ImageFile对象的方法修改图片。FrameIndex-对于删除，将FrameIndex属性设置为希望删除的帧的索引，对于添加，将FrameIndex设置为要在其之前插入ImageFile的帧的索引，否则设置为0[默认值]FrameIndex-如果希望修改除ActiveFrame之外的帧，可将FrameIndex属性设置为帧的索引，否则设置为0[默认值]...
ImageJ批量计算叶片面积
zty0104的博客
08-20 5419
这一步是把图片中的直尺P掉，如下图中的黄色方框区域)→Duplicate(在Image中，这一步相当于提取黄色区域部分)→Threshold(Image，adjust里面。如下图，调整两个水平滑动块，使图片中的叶片变成红色（这里的代码是setThreshold（1，200））。这里将要处理的图片放在一个文件夹里，再新建一个空文件夹用来放处理之后的照片（也就是变红的照片），最后点process就开始进行批量处理了。1先点直线→2在直尺上画出1cm的长度→3点analyze。将record框中的代码复制下来。
VBA提高篇_ 28 全局变量_Image更换图片LoadPicture_ChartObject控件
pigerr的博客
03-20 844
使用全局变量保存其他子过程的临时数据控件得到的内容一般为字符串,需要进行类型转换,防止VBA自动类型转换出错表单控件更换为ActiveX控件,更灵活,更高能Picture.loadPicture方法(加载图片地址)更换图片。
利用VBA+SQL查询Excel工作表数据（条件查询）
VBAMatrix的博客
10-11 1282
本文将进一步汇总SQL条件查询的实际应用。这里，我们把SQL条件查询分为五部分：（1）条件运算符；（2）逻辑运算符；（3）列表查询；（4）介值查询；（5）空值查询。
使用ImageJ批量处理图像 超好用&持续更新常用操作
热门推荐
weixin_38429450的博客
04-05 1万+
本人经常做一些生物图像的处理，Imagej是我常使用的一个图像处理软件，非常小巧但是各种功能都有，最近需要批量处理一批图像，一张一张的导入处理太麻烦，经过一番挖掘，学习到了如何使用Imagej强大的批量处理功能，推荐给大家，希望给大家带来一点帮助~ 我以我这次的图像处理任务为例给大家介绍具体使用方法，操作包含自动的亮度对比度转化＋16位图像转8位。 ## step1.处理一张图像并记录处理代码 首先我们导入一张需要处理的图像 然后打开plugin->macro->recode 工具.
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值