图片批量单页居中怎么调整

① word中如何让批量设置让图片居中对齐

01 首先，我们点击打开word，然后点击工具栏中的插入；
02
然后我们点击图片；
03
选中我们需要插入的图片，然后点击插入；
04
插入后，我们任意点击一张图片，然后点击居中对齐；
05
效果如图，已经全部居中对齐。

② 请问怎么 才能在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表格中插入多张图片后怎么才能让图片自动在单元格中居中

步骤一:选中需要批量居中的图片(推荐随便选中一张图片,然后按住CTRL+A 即可全选表格中所有图片)

④ 如何将word中所有的嵌入式图片批量设置为居中对齐

http://jingyan..com/article/29697b91075051ab20de3cc3.html

⑤ word宏批量修改图片居中及大小

WORD里有它自带的设置可以调节的，

⑥ 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

⑦ Word文档中的图片怎么批量前后换行，图片居中

Sub 宏1()
For i = 1 To 1000
Selection.GoTo What:=wdGoToGraphic, Which:=wdGoToNext, Count:=1, Name:=""
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeParagraph
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Next i
End Sub
你先在小文件上试试。再投入使用。