有什么函数可以直接绑定货物图片和型号吗？

yusijia19

狗尾巴草儿 发表于 2018-1-26 15:02
可以用VBA实现呐，VBA的话，可以批量处理，速度应该也还可以，比手动要快一点。昨天我们讨论了你的文件，发 ...

非常感谢，新年快乐
处理的希望是这样的， 可以一次性把之前的型号 和照片关联起来
或者直接把照片变成型号的超链模式~~~

希望能用VBA解决！

狗尾巴草儿

yusijia19 发表于 2018-2-12 14:03
非常感谢，新年快乐
处理的希望是这样的， 可以一次性把之前的型号 和照片关联起来
或者直接把照片变成 ...

我在研究研究，我有一个批量加图片的代码，你可以改吗？

1. Sub批量导入图片且指定高度高度（）       '1代码存放位置：模块中2随书光盘中有每一句代码含义法理
   
2. 
   
3. If TypeName(Selection)<>"Range" Then Exit Sub
   
4. 
   
5. Dim Filenname,shpName,i As Integer,shp As Shape
   
6. 
   
7. Filenname=Application.GetOpenFilename(”所有图片文件（*.jpg；”.bmp；”.
   
8. .gif）,*.jpg；*.bmp;*.png；*.gif",,"请选一个图片文件”，，True）
   
9. 
   
10. If TypeName(Filenname)="Boolean"Then Exit Sub
    
11. 
    
12. for Bach shpName In Filenname
    
13. 
    
14. Set shp Activesheet.Shapes.AddPicture(shpName,msofalse,msotrue,
    
15. Activece11.offset(i,0).Left,Activecel1.offset (i,0).Top,Activecell.
    
16. offset(i,0).Width,Activecel1.offset(i,0).hieight)
    
17. 
    
18. shp.Placement =x1MoveAndsize
    
19. 
    
20. shp.Name=Dir(shpName)
    
21. 
    
22. i=i+1
    
23. 
    
24. Next shpName
    
25. 
    
26. End Sub

复制代码

yusijia19

狗尾巴草儿 发表于 2018-2-12 14:19
我在研究研究，我有一个批量加图片的代码，你可以改吗？

我研究下，新丁 不一定看得懂~

yusijia19

彻底没看懂，不少单词我认识，但是放进编码里我就 只能抓瞎了。其他的能看出大概有什么用，这两句完全没看懂。

• Activece11.offset(i,0).Left,Activecel1.offset (i,0).Top,Activecell.
• offset(i,0).Width,Activecel1.offset(i,0).hieight)
  

狗尾巴草儿

可以百度，offset是偏移，（正常来讲是向右向下偏移）例：Activece11.offset(i,0).Left的意思是活动单元格向左偏移i个单元格，向下偏移0个单元格。应该是这样，我也是个小白

yusijia19

狗尾巴草儿 发表于 2018-2-14 11:23
可以百度，offset是偏移，（正常来讲是向右向下偏移）例：Activece11.offset(i,0).Left的意思是活动单元格 ...

非常感谢，我的附件上楼发出来了~有时间的话，可以看下~