在EXCEL中怎么用宏插入图片?
发布网友
发布时间：2022-04-23 06:10
共3个回答
热心网友
时间：2022-07-10 09:24
材料/工具：电脑、Excel2007
1、首先，打开Excel表格，点击表格最左上边office按钮---excel选项 。
2、弹出来一个对话框，点击”常用“栏目，右侧出现常用对话框，我们找到一个叫做“在功能区显示开发者选项卡”，点击勾选它。点击确定。
3、回到打开表格的开始页面，将表格中图片那一列填充对应的款号或编码，注意要插入图片的表格里边在插入图片之前是有编号的，里边的编号就是对应的款号。如图所示点击”Visual Basic“ 快捷键是”ALT+F11 “。
4、然后点击 ”文件“，选择”导入文件“。
5、导入后文件后，窗口上方有一排”宏“的指令，点那个绿色的三角运行"宏" 三角按钮就是经常用到的”开始/播放“那个按钮点，然后跳出一个对话框，点击”运行“。
6、我们要导入图片的位置，就是把图片存在我们电脑上的哪个位置复制下来填进方框里边去，复制 粘贴就可以了。也可以手动输入进去，但是完成后，一定记得再加一个“\”点确定。
7、点击确定，对话框关闭。我们就回到开始页面了，这时发现我们已经将图片导入表中对应的款式去了。
热心网友
时间：2022-07-10 10:42
这个需要和excel工作表事件进行配合才可完成，以下面模拟为例
在职工信息中表中为员工插入图片，当单击职工姓名时，就会出现职工的照片，需要做的前期准备就是，必须要将职工信息表和职工照片放在同一文件夹下。
在信息表中插入以下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then
Me.Image1.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\员工照片\" & Target.Offset(0, -1) & ".jpg")
Image1.Left = Target.Left + Target.Width
Image1.Top = Target.Top
Else
Me.Image1.Visible = False
End If
c = Target.Value
End Sub
热心网友
时间：2022-07-10 12:17
sub test
dim sfilename as string
sfilename="d:\PIC\1.jpg"
range("A2").select
ActiveSheet.Shapes.AddPicture sfileName, True, True, .Left, .Top, .Width * 6, .Height
end sub追问谢谢。这个我会，主要是要一次插入很多的图片，不同的
追答那你根据这个写个循环不就可以了
