1. 請問怎麼 才能在EXCEL中把圖片批量並且居中的放在單元格中
可以通過VBA實現,點擊【開發工具】,【Visual Basic】打開VBA編輯器,也可以使用【Alt+F11】組合鍵打開VBA編輯器。雙擊「模塊1」,復制以下代碼。然後插入按鈕,指定宏即可。
代碼如下
SubInsertPic()
'ExcelHomeVBA編程學習與實踐by:看見星光
DimArr,i&,k&,n&,pd&
DimstrPicName$,strPicPath$,strFdPath$,shpAsShape
DimRngAsRange,CllAsRange,RgAsRange,strWhereAsString
'OnErrorResumeNext
'用戶選擇圖片所在的文件夾
WithApplication.FileDialog(msoFileDialogFolderPicker)
If.ShowThenstrFdPath=.SelectedItems(1)Else:ExitSub
EndWith
IfRight(strFdPath,1)<>""ThenstrFdPath=strFdPath&""
SetRng=Application.InputBox("請選擇圖片名稱所在的單元格區域",Type:=8)
'用戶選擇需要插入圖片的名稱所在單元格範圍
SetRng=Intersect(Rng.Parent.UsedRange,Rng)
'intersect語句避免用戶選擇整列單元格,造成無謂運算的情況
IfRngIsNothingThenMsgBox"選擇的單元格範圍不存在數據!":ExitSub
strWhere=InputBox("請輸入圖片偏移的位置,例如上1、下1、左1、右1",,"右1")
'用戶輸入圖片相對單元格的偏移位置。
IfLen(strWhere)=0ThenExitSub
x=Left(strWhere,1)
'偏移的方向
IfInStr("上下左右",x)=0ThenMsgBox"你未輸入偏移方位。":ExitSub
y=Val(Mid(strWhere,2))
'偏移的值
SelectCasex
Case"上"
SetRg=Rng.Offset(-y,0)
Case"下"
SetRg=Rng.Offset(y,0)
Case"左"
SetRg=Rng.Offset(0,-y)
Case"右"
SetRg=Rng.Offset(0,y)
EndSelect
Application.ScreenUpdating=False
Rng.Parent.Select
ForEachshpInActiveSheet.Shapes
'如果舊圖片存放在目標圖片存放范圍則刪除
IfNotIntersect(Rg,shp.TopLeftCell)IsNothingThenshp.Delete
Next
x=Rg.Row-Rng.Row
y=Rg.Column-Rng.Column
'偏移的坐標
Arr=Array(".jpg",".jpeg",".bmp",".png",".gif")
'用數組變數記錄五種文件格式
ForEachCllInRng
'遍歷選擇區域的每一個單元格
strPicName=Cll.Text
'圖片名稱
IfLen(strPicName)Then
'如果單元格存在值
strPicPath=strFdPath&strPicName
'圖片路徑
pd=0
'pd變數標記是否找到相關圖片
Fori=0ToUBound(Arr)
'由於不確定用戶的圖片格式,因此遍歷圖片格式
IfLen(Dir(strPicPath&Arr(i)))Then
'如果存在相關文件
Setshp=ActiveSheet.Shapes.AddPicture(_
strPicPath&Arr(i),False,True,_
Cll.Offset(x,y).Left+5,_
Cll.Offset(x,y).Top+5,_
20,20)
shp.Select
WithSelection
.ShapeRange.LockAspectRatio=msoFalse
'撤銷鎖定圖片縱橫比
.Height=Cll.Offset(x,y).Height-10'圖片高度
.Width=Cll.Offset(x,y).Width-10'圖片寬度
EndWith
pd=1'標記找到結果
n=n+1'累加找到結果的個數
[a1].Select:ExitFor'找到結果後就可以退出文件格式循環
EndIf
Next
Ifpd=0Thenk=k+1'如果沒找到圖片累加個數
EndIf
Next
Application.ScreenUpdating=True
MsgBox"共處理成功"&n&"個圖片,另有"&k&"個非空單元格未找到對應的圖片。"
EndSub
小提示:
1,該段小代碼支持一下圖片格式:
".jpg",".jpeg",".bmp",".png",".gif"
2,圖片的縱橫比是未鎖定的,如需鎖定,可以注釋掉下句代碼:
.ShapeRange.LockAspectRatio=msoFalse
2. excel怎麼把圖片在單元格居中
打開excel文檔,點擊插入--圖片,選擇路徑,查看圖片所在的位置。選擇所需的圖片,點擊插入選中圖片,點擊一下,會出現圖片工具的欄目,可以對圖片進行編輯。找到大小編輯欄,點擊右下角的小箭頭,進入設置圖片格式界面選中屬性,屬性的對象位置,選擇大小和位置隨單元格而變。就設置好了。
3. Excel中如何使插入的圖片與表格居中對齊
1、首先,打開需要操作的Excel表格,在B1單元格中插入一張皮卡丘的圖片。
4. excel怎麼讓圖片居中
在excel當中插入圖片以後,可以點擊這個圖片,有一個開始的下拉菜單,裡面可以把圖片調整為居中 。