Option Explicit Global Const mm = 567 Global Const cm = 567 Global Const NM_PP_Ofs = 0 '36 Global Const Gray = &HC0C0C0 Global Scala As Single Global Const ANTEPRIMA = 0 Global Const STAMPANTE = 1 Global Const NONESCLUSIVO = 0 Global Const ESCLUSIVO
问题描述：根据商品货号在Excel里进行图片展示
多文件批量插图
本程序下载地址：https://download.csdn.net/download/qq_35866846/12170343
有下载使用不清楚的可以后台留言
插入后效果图：
执行界面：
Sub 批量插图()
Dim MyFileName, MyPath As String
Dim MyBook As Workbook
Dim count As Integer
Dim pw As String
