excel表格里的圖片如何一次性居中

⑴ Excel的圖片怎麼批量居中

'第2列數據改變則插入同名圖片，圖片不變形且居中

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub

On Error Resume Next

Dim Pic As Object, FN As String
If Target.Count = 1 And Target <> "" And Target.Column = 2 And Target.Row > 4 Then ' Target.Column=數字,這個數字為你輸入圖片名稱單元格所在列的列號,A=1,B=2.....
FN = ThisWorkbook.Path & "\圖片\" & Target & ".jpg" '遍歷本工作簿路徑的「圖片」文件夾，查找圖片
Shapes(Target.Address).Delete

' Target.Offset(0,1), 其中的數字1代表了顯示圖片的單元格位置列號與圖片名稱所在單元格位置列號的差
Set Pic = ActiveSheet.Shapes.AddPicture(FN, True, True, Target.Offset(0, 1).Left + Target.Offset(0, 1).Width * 0.005, Target.Offset(0, 1).Top + Target.Offset(0, 1).Height * 0.005, Target.Offset(0, 1).Width * 0.99, Target.Offset(0, 1).Height * 0.99)
Pic.Name = Target.Address
'ActiveSheet.Hyperlinks.Add Anchor:=Pic, Address:=FN 建立超鏈接
End If

End Sub

⑵ Excel中如何使插入的圖片與表格居中對齊

1、首先，打開需要操作的Excel表格，在B1單元格中插入一張皮卡丘的圖片。

⑶ excel2010中怎麼讓單元格中圖片居中

1、首先是需要打開Word文件，如圖所示，點擊需要插入圖片的表格。

⑷ WPS最新版EXCEL中如何讓圖片自動居中

wps演示讓圖片居中方法：

• 水平居中的方法：選中單元格，然後點擊水平居中。

• 垂直居中的方法，也是選中單元格，直接點擊垂直居中。

• 水平垂直居中的方法：同時選中垂直居中與水平居中。

• 連續單元格水平居中，當單元格過多的時候，可以藉助shift選取連續單元格。

• 不連續單元格居中，用ctrl+方向鍵，可以選中不連續單元格。

⑸ excel怎麼讓圖片居中

1、首先將圖片插入到excel表格裡面，然後將全部的照片都選中。

⑹ Excel表格中插入多張圖片後怎麼才能讓圖片自動在單元格中居中

步驟一:選中需要批量居中的圖片(推薦隨便選中一張圖片,然後按住CTRL+A 即可全選表格中所有圖片)

步驟二:按alt+F11,出現另外一個代碼處理窗口,選中「插入-模塊」

步驟三:在輸入框中插入下列代碼
Sub dq()
Dimshp AsShape
ForEachshp InActiveSheet.Shapes
shp.Left = (shp.TopLeftCell.Width - shp.Width) / 2 + shp.TopLeftCell.Left
shp.Top = (shp.TopLeftCell.Height - shp.Height) / 2 + shp.TopLeftCell.Top
Next
EndSub
步驟四:回到需要處理圖片居中對齊的窗口
按住ALT +F8 執行宏dq 操作。(圖片較多的話可能需要稍微等待一兩分鍾,之後所有被選中的圖片就都整整齊齊的對齊啦。)

⑺ excel怎麼讓圖片居中

在excel當中插入圖片以後，可以點擊這個圖片，有一個開始的下拉菜單，裡面可以把圖片調整為居中 。

⑻ EXCEL里批量調整圖片大小和居中

1、按SHIFT或CTRL鍵選中需要調整大小的圖片，在圖片上右擊，選中大小和屬性命令
2、在對話框的大小選項卡中，輸入需要的圖片大小
3、選擇屬性選項卡，點選「大小和位置隨單元格而變」關閉對話框。當調整單元格大小時，圖片隨之改變

⑼ 請問怎麼 才能在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

⑽ excel怎麼把圖片在單元格居中

打開excel文檔，點擊插入--圖片，選擇路徑，查看圖片所在的位置。選擇所需的圖片，點擊插入選中圖片，點擊一下，會出現圖片工具的欄目，可以對圖片進行編輯。找到大小編輯欄，點擊右下角的小箭頭，進入設置圖片格式界面選中屬性，屬性的對象位置，選擇大小和位置隨單元格而變。就設置好了。