|
楼主 |
发表于 2019-3-22 20:59
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 langui19 于 2019-3-22 21:43 编辑
我换一个工作表插入验收意见,插入的图片总是不对。麻烦帮忙看看。图片应该出现在 "D43" ,每次插入到其他的位置 大概在"C33"
Sub 自动插入意见栏图片()
Dim myPath$, myFile$, fileArr(), k%, s%, pngPath$, gzbmc$, dygmc$
myPath = "F:\新建文件夹\新建文件夹\意见栏\" '定义意见栏的图片路径
myFile = Dir(myPath & "*.png") '定义意见栏图片名及路径
gzbmc = "检验批检查记录竖表" '需填入验收意见的工作表名称
dygmc = "D43" '在cells(d43)单元格中填入验收意见
'---------------------------插入验收意见-------------------
ReDim fileArr(1)
Do While myFile <> "" '此循环赋值意见栏里的图片名及路径给数组
k = k + 1
ReDim Preserve fileArr(0 To k - 1)
fileArr(k - 1) = myFile
myFile = Dir
Loop
s = Int(Rnd() * k) '生成随机数字
pngPath = myPath & fileArr(s) '随机的图片名及路径定义给变量
Set pic = ThisWorkbook.Worksheets(gzbmc).Shapes.AddPicture(pngPath, False, True, Range(dygmc).Left, Range(dygmc).Top, -1, -1)
End Sub
|
|