PPT中如何批量修改字体颜色和大小
1个回答
展开全部
即可实现,看图操作吧!
sub
oed01()
'批量修改字体格式、大小和颜色
dim
oshape
as
shape
dim
oslide
as
slide
dim
otxtrange
as
textrange
on
error
resume
next
for
each
oslide
in
activepresentation.slides
for
each
oshape
in
oslide.shapes
set
otxtrange
=
oshape.textframe.textrange
if
not
isnull(otxtrange)
then
with
otxtrange.font
.name
=
"楷体_gb2312"
'改成你需要的字体
.size
=
20
'改成你需要的文字大小
.color.rgb
=
rgb(red:=255,
green:=0,
blue:=0)
'改成你想要的文字颜色
end
with
end
if
next
next
end
sub
//更改具备相同文字区域的ppt批量修改(跟据上面的例字整理所得)
sub
aa()
'
'
宏由
wsqxushui
创建,日期
2011-3-16。
'
dim
oshape
as
shape
dim
oslide
as
slide
dim
otxtrange
as
textrange
on
error
resume
next
for
each
oslide
in
activepresentation.slides
'遍历所有的幻灯片
set
oshape
=
oslide.shapes("text
box
4")
'每个幻灯片中文字区域
set
otxtrange
=
oshape.textframe.textrange
'每个区域中文字
if
not
isnull(otxtrange)
then
with
otxtrange.font
.name
=
"宋体"
'改成你需要的字体
.size
=
14
'改成你需要的文字大小
.color.rgb
=
black
'改成你想要的文字颜色
end
with
end
if
next
end
sub
sub
oed01()
'批量修改字体格式、大小和颜色
dim
oshape
as
shape
dim
oslide
as
slide
dim
otxtrange
as
textrange
on
error
resume
next
for
each
oslide
in
activepresentation.slides
for
each
oshape
in
oslide.shapes
set
otxtrange
=
oshape.textframe.textrange
if
not
isnull(otxtrange)
then
with
otxtrange.font
.name
=
"楷体_gb2312"
'改成你需要的字体
.size
=
20
'改成你需要的文字大小
.color.rgb
=
rgb(red:=255,
green:=0,
blue:=0)
'改成你想要的文字颜色
end
with
end
if
next
next
end
sub
//更改具备相同文字区域的ppt批量修改(跟据上面的例字整理所得)
sub
aa()
'
'
宏由
wsqxushui
创建,日期
2011-3-16。
'
dim
oshape
as
shape
dim
oslide
as
slide
dim
otxtrange
as
textrange
on
error
resume
next
for
each
oslide
in
activepresentation.slides
'遍历所有的幻灯片
set
oshape
=
oslide.shapes("text
box
4")
'每个幻灯片中文字区域
set
otxtrange
=
oshape.textframe.textrange
'每个区域中文字
if
not
isnull(otxtrange)
then
with
otxtrange.font
.name
=
"宋体"
'改成你需要的字体
.size
=
14
'改成你需要的文字大小
.color.rgb
=
black
'改成你想要的文字颜色
end
with
end
if
next
end
sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
博思aippt
2024-07-20 广告
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询