PPT图片版式如何设置为四周环绕版式

导读：　PPT图片版式如何设置为四周环绕版式(共6篇)图片环绕方式的设定批量设置word 里图片的大小及版式的技巧批量设置word 里图片的大小及版式的技巧1 批量设置固定大小工具-宏-新建Sub setpicsize() 设置图片大小Dim n 图片个数On Error Resume Next 忽略错误For n = 1 To ActiveDocum...

图片环绕方式的设定
PPT图片版式如何设置为四周环绕版式 第一篇

批量设置word 里图片的大小及版式的技巧
PPT图片版式如何设置为四周环绕版式 第二篇

批量设置word 里图片的大小及版式的技巧

1.批量设置固定大小【PPT图片版式如何设置为四周环绕版式】

工具-宏-新建

Sub setpicsize() '设置图片大小

Dim n '图片个数

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 ActiveDocument.Shapes(n).Height = 70 '设置图片高度为 70px ActiveDocument.Shapes(n).Width = 80 '设置图片宽度 80px

Next n

End Sub

运行即可

2.批量按比率缩小或放大

新建宏

Sub setpicsize() '设置图片大小

Dim n '图片个数

Dim picwidth

Dim picheight

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片 picheight = ActiveDocument.Shapes(n).Height

picwidth = ActiveDocument.Shapes(n).Width

ActiveDocument.Shapes(n).Height = picheight * 0.5 '设置高度为0.5倍 ActiveDocument.Shapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍 Next n

End Sub【PPT图片版式如何设置为四周环绕版式】

3批量将图片转成嵌入型

新建宏

Sub 图片转嵌入型()

Dim apic As Shape

Application.ScreenUpdating = False

For Each apic In ActiveDocument.Shapes

apic.ConvertToInlineShape '转换为嵌入型

Next

Application.ScreenUpdating = True

Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend With Selection.ParagraphFormat

.LeftIndent = MillimetersToPoints(0)

.RightIndent = MillimetersToPoints(0)

.SpaceBefore = 6

.SpaceBeforeAuto = False【PPT图片版式如何设置为四周环绕版式】

.SpaceAfter = 6

.SpaceAfterAuto = False

.LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphCenter .WidowControl = False

.KeepWithNext = False

.KeepTogether = False

.PageBreakBefore = False

.NoLineNumber = False

.Hyphenation = True

.FirstLineIndent = MillimetersToPoints(0) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0

.CharacterUnitRightIndent = 0

.CharacterUnitFirstLineIndent = 0

.LineUnitBefore = 0

.LineUnitAfter = 0

.AutoAdjustRightIndent = True

.DisableLineHeightGrid = False

.FarEastLineBreakControl = True

.WordWrap = True

.HangingPunctuation = True

.HalfWidthPunctuationOnTopOfLine = False .AddSpaceBetweenFarEastAndAlpha = True .AddSpaceBetweenFarEastAndDigit = True .BaseLineAlignment = wdBaselineAlignAuto End With

End Sub

4.批量将图片转四周型

新建宏

Sub 图片版式转换四周型()

Dim apic As Variant, shapeType As WdWrapType On Error Resume Next

For Each apic In ActiveDocument.InlineShapes apic.ConvertToShape

With oShape

oShape.WrapFormat.Type = 0 '四周型

oShape.WrapFormat.AllowOverlap = False '不允许重叠 End With

Next

End Sub

在Word文档中,要使文字环绕图片进行“图文混排”,请写出操作步骤。
PPT图片版式如何设置为四周环绕版式 第三篇

在Word文档中，要使文字环绕图片进行“图文混排”

操作步骤。

插入图片后,右击图片,选择设置图片格

就可以了

通过文字环绕实现图文混排，方法：

单击图片可自动打开图片工具栏，点击

绕即可。 式.选择"版式"那个页片,设置成"四周型"“文字环绕”按钮，设成四周型或紧密型环

或者右击图片，在弹出的快捷菜单中选择“设置图片格式”命令，在“版式”选项卡中设置四周型或紧密型即可。

如何在PPT中设置文字环绕图片？详细！
PPT图片版式如何设置为四周环绕版式 第四篇

ppt跟word不一样的，ppt中插入图片没版式设置项，插入后直接就是浮动式的，图片和文字不在一个版块内，两个是相对独立的对象，但可以右击图片选择[叠放层次"。可以设置图片的[叠放层次"为[置于底层"，把输入好文字的文本框拉大，盖住图片，调整文字的位置，比如换行、空格等，让图片完全显现出来，这样会达到你想要的效果。你不妨试一试，希望对你有帮助。 提问者评价 谢谢啦~是个好方法~

如何将图片设为ppt的背景图
PPT图片版式如何设置为四周环绕版式 第五篇

如下图

在弹出的页面下拉中选择[填充效果"如下图，选择[图片"项:
选择应用本页还是应用全部，找到要设置为背景的图片。弹出页面如下图怎样自己设置PPT的背景。

插入图片后。

假设设置为全部页面的背景。如何将图片设为ppt的背景图。在新建的PPT中右键选择[背景"项:
1?设置如下。利用自己想用的好看图片:

在弹出的填充效果页面中。选择应用全部
这样就设置好页面背景了 提问者评价 非常感谢

ppt中如何组合图片
PPT图片版式如何设置为四周环绕版式 第六篇

你点击组合就可以了
方法2，然后按住Ctrl键不放，然后在选中的区域内单机鼠标右键，把你所要组合的图统统形选中，拖动出现一个虚线框，你可以在选中的图形上点击右键方法1:
单击鼠标左键，弹出的下拉菜单中有一项就是组合，再用鼠标点击下一个图形:你也可以先选中一个图形，当所有需要的图形都被选中后 提问者评价 谢谢
PPT图片版式如何设置为四周环绕版式相关热词搜索：ppt图片有四周环绕 ppt设置文字环绕图片