excel添加代码怎么写

一、前提：

假设图片名称在A2:A15，不带扩展名，图片格式为jpg格式，图片保存在“D：图片”文件夹下

二、操作方法：

1、A2:A15输入图片名称（不带扩展名）

2、B2输入

3、下拉公式到B15

说明：公式中Width 和height是装入后的图片宽和高，可自行调整。

4、选中B2:B10，复制

5、返回桌面，新建一个文本文件，并打开，粘贴

6、调整Excel行距，以确保图片能装下

7、选中文本文件中的全部内容，复制

8、转到Excel中，选中B2，选择性粘贴——Ubicode文本

9、所有图片立即以相同大小插入到了B2:B10

注意：如果粘贴后，图片大小觉得不合适，这时不要急于点选其他单元格，在全部图片选中状态，任意一张图片上鼠标右键——图片属性，设置其宽和高即可统一调整图片尺寸了。

1.例如，在下面的表格中，我们要在照片栏中插入每个员工的照片。

2.单击选中要插入图片的单元格，如图中单元格E3。

3.依次点击菜单“插入”——“图片”——“来自文件”。

4.在“插入图片”窗口，选择要插入的图片，点击“插入”按钮插入图片。

5.在excel表格中，拖动图片控制点，调整图片大小以与单元格边框对齐。

6.在图片上双击鼠标，打开“设置图片格式”窗口，在“属性”页面，选择“大小，位置随单元格而变”。

7.设置好后，调整单元格大小，照片随之调整。

8.其它单元格要插入图片：如何是excel2003，则必须重复以上步骤进行插入。

而如果是EXCEL2007,2010的话，可以先复制设置好的图片，然后进行粘贴，全部复制好后，在图片上右键鼠标，弹出菜单中选择“更改图片”，然后把图片更改成你需要的图片就可以了。

菜单栏——视图——工具栏——绘图——在状态栏上出现“绘图工具栏”； 点图片——点“绘图工具栏”上的“矩形”——在图片画矩形框——右键——添加文本； 点矩形框——右键——设置自选图形格式——颜色与线条：选“无填充颜色”和“无线条颜色”——字体——颜色：根据需要选择——确定； 按Shift——点选矩形框和图片——右键——组合——组合。

你补充我也补充： “横竖文本框和矩形图案时怎么去除白框”： Excel里面没有文本框，我的是2003版，不知道“月大虾”和“yuanjieliankai”是什么版本？Word里面才有文本框。 去除矩形边框——上面讲过：点矩形框——右键——设置自选图形格式——颜色与线条：“填充”下拉窗选“无填充颜色”，“线条”下拉窗选“无线条颜色”——确定。

“怎样移动文本的位置”：移动矩形框就等于移动文本了（文本在矩形框里面）。 “如果使用Word，还有那些方法可以添加文本”： Word里面就多了：插入矩形框、文本框、表格、艺术字等。

将图片和本工作簿放在同一个文件夹中。在sheet1表中插入一个命令按钮，双击这个按钮将此代码复制进去。这里代码的格式为jpg格式，可以根据实际替换为你的格式。

Sub 图片导入（）

Dim rng As Range, pah$, rng1 As Range, sp As Shape

pah = ThisWorkbook.Path & ""

For Each sp In Sheet1.Shapes

If sp.Type = 11 Then

sp.Delete

End If

Next

For Each rng In Range("a2", [a2].End(xlDown))

Set rng1 = rng(1, 2)

Sheet1.Shapes.AddPicture pah & rng & ".jpg", 1, 1, rng1.Left, rng1.Top, rng1.Width, rng1.Height

Next

End Sub

然后用以下代码来自动导入图片。