作者:乔山办公网日期:
返回目录:excel表格制作
1、首先需要抄excel加载项中选择“DIY工具箱”,选择导入图片功能;
2、在袭弹出的对话框中选择“添加”按钮;
3、找到图片路径,全选需要导入的图片,然后点击打开;
4、在弹出的对话框中,设置需要储存的单元格,以及导入格式。关键的步骤就是选中“同时标注图片名”功能,然后点击确认。
5、点击取消关闭对话框;
6、在表格中我们就把图片和图片名一一zd对应上了。
这个是矩形的名称,如果你插入了找不到放哪了, 你在开始菜单的右边查找和选择里面找到定位,定位条件先对象,确认就能看到了
首先你得将发票名称对应好,比如我下面举例是用C列金额为发票的名称。
按ALT+F11打开代码窗,然后将下面代码复制到代码窗里。
注:图片要同文件放在同一文件夹e69da5e887aa7a64361下,如果不在,要修改代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range, ML, MT, MW, MH, myShape As Shape
Dim s As String
If Target.Column = 3 Then
On Error Resume Next
Set myShape = Shapes(1) '指定Shape对象
'If myShape.Type = msoAutoShape Then myShape.Delete
Set rng = [d2:d20]
s = ThisWorkbook.Path & "\" & Target.Value & ".jpg"
If Dir(s) <> "" Then
With rng
ML = .Left
MT = .Top
MW = .Width
MH = .Height
End With
If myShape Is Nothing Then
ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
Else
myShape.Select
End If
Selection.ShapeRange.Fill.UserPicture s
Else
myShape.Delete
End If
Target.Select
End If
End Sub
效果图:
表示我插入矩形 不显示任何文字