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

然後用以下代碼來自動導入圖片。