欢迎光临LDC
学习是进步之梯

学习一下VBA 白领excel的办公再也不用加班了 VBA之图片引用

在我们办公室里,大多是需要为生产以及销售服务的,这里的非常多的产品需要我们进行罗列,并且需要将产品的参数做好,而有一些产品更是需要有图片的搭配,这样才能更加的直接和更易挑选。而对于Excel来说,更多的是数字处理能力,对于图片的处理能力明显就不足了,那么怎么能让产品有图片呢?这里就需要学一些VBA,让自己的产品信息每次都带上图片,立马高大上,老板看了也会非常的高兴的。

比如下图这个样子的,有图就更加的直观明了,让客户或是其它人看了都会感觉舒服的,因为相对于文字说明,图片的说服力更加大。

如果要实现这个样子,首先就是要数据的采集了,一劳永逸就是这样个子的,如果想后面简单直接,前期的工作就要作好了,先就是将图片采集好放到一个固定的文件夹里备用,并且这里一定要注意,图片的文件名就是和产品明细有一个对应关系的,比较产品的编号来命名。这样不可以很方法的让后期来查找图片了。

然后就是在图片相应位置放上我们需要的图片,这里就需要到VBA更加的简单和直接了,当然了也有其它的方法,比如使用<table工具也可以批量实现放入图片,这里小伙伴们可以自己去查找一下方法,这里不多说这个,小编今天主要是来说一下使用VBA自动实现放入图片。

Sub tt()
On Error Resume Next
With ActiveSheet
For i = 2 To .UsedRange.Row + .UsedRange.Rows.Count – 1
If .Cells(i, 2) <> “” Then
.Pictures.Insert(“E:\素材\minipic\” & .Cells(i, 2) & “.jpg”).Select
With Selection
.Top = ActiveSheet.Cells(i, 5).Top
.Left = ActiveSheet.Cells(i, 5).Left
.Width = ActiveSheet.Cells(i, 5).MergeArea.Width
If .Height > ActiveSheet.Cells(i, 5).MergeArea.Height Then .Height = ActiveSheet.Cells(i, 5).MergeArea.Height
End With
End If
Next
End With
End Sub

打开VBA编辑器,在sheet1里放入以上代码请细仔看一下代码表达的方式,图片放的位置是在第五列,产品代码是放在第2列的。这个请留意,这样就可以实现了。然后放一个按钮,就可以自动放图片了。自动填充到相应的单元格,自动填满。

未经允许不得转载:拓学工程 » 学习一下VBA 白领excel的办公再也不用加班了 VBA之图片引用
分享到: 更多 (0)