pptvba文本框怎么写

1.VBA PPT 文本框设置

Sub Change_WhiteText_toBlack()

On Error Resume Next

Dim i, j As Single

For i = 2 To ActivePresentation.Slides.Count

For j = 1 To ActivePresentation.Slides(i).Shapes.Count

With ActivePresentation.Slides(i).Shapes(j)

If .Fill.BackColor = vbWhite And .TextFrame.TextRange.Font.Color = vbWhite Then

.TextFrame.TextRange.Font.Color = vbBlack

End If

End With

Next

Next

End Sub

插入模块,复制代码到其中。

2.ppt vba 插入一个文本框并且设置文本边框为红色,代码怎么写

With ActivePresentation.Slides(2) With .Shapes.AddTextbox(, 80, 200, 550, 100) .TextFrame.TextRange.Font.Color = vbRed .TextFrame.TextRange.Font.Size = 38 .TextFrame.TextRange.Text = "第二张幻灯片插入了一个文本框" End With End With。

3.ppt vba 回车到达文本框

楼主是指同一个页面的文本框吗?还是到达下一个页面的文本框。

如果是同一个页面,按Ctrl+回车就可以。

如果已经在当前页面的最后一个文本框中,按Ctrl+回车先创建一个新页面,再按一次切到新页面的文本框中。

Ctrl+回车有用的。 试过。

Office2003

用幻灯片母板里的那种文本框之间是可以Ctrl+回车切换的,你自己通过绘图工具栏画的文本框之间不能这样切换。

建议楼主hi我,把你的ppt给我看看,弄清楚情况再说。否则VBA写出来也不符合你的要求,也是白写。

----------------------------------------------

楼主说的是文本框控件,请关注下面两个帖子的答复内容:

/cdb/viewthread.php?tid=111203&extra=page%3D1

以及

/viewthread.php?tid=75943&pid=3138470&page=1&extra=page%3D1

4.怎么用vba在第二张ppt里面插入一个文本框

Sub abc()

With ActivePresentation.Slides(2)

With .Shapes.AddTextbox(, 80, 200, 550, 100)

.TextFrame.TextRange.Font.Color = vbRed

.TextFrame.TextRange.Font.Size = 38

.TextFrame.TextRange.Text = "第二张幻灯片插入了一个文本框"

End With

End With

End Sub

点击图片查看动画效果

5.PPT的VBA中怎样在一张幻灯片中引用另一张幻灯片中的文本框中的内

下面代码是把第二张幻灯片的标题设置为第一张幻灯片的文件框的内容

ActivePresentation.Slides(2).Shapes(1).TextFrame.TextRange.Text = ActivePresentation.Slides(1).Shapes(3).TextFrame.TextRange.Text

下面代码是显示第一张幻灯片中所有文本框的内容,你看着哪个对你有用,用哪个吧

Private Sub CommandButton1_Click()

Dim i As Integer

With ActivePresentation.Slides(1)

For i = 1 To .Shapes.Count

If .Shapes(i).Type = msoTextBox Then

MsgBox .Shapes(i).TextFrame.TextRange.Text

End If

Next

End With

End Sub

6.VB中怎样在PPT中创建一个文本框呢

ActiveWindow.Selection.SlideRange.Shapes.AddTextbox(, 356, 252, 58.625, 28.875).Select ActiveWindow.Selection.ShapeRange.TextFrame.WordWrap = msoTrue With ActiveWindow.Selection.TextRange.ParagraphFormat .LineRuleWithin = msoTrue .SpaceWithin = 1 .LineRuleBefore = msoTrue .SpaceBefore = 0.5 .LineRuleAfter = msoTrue .SpaceAfter = 0 .Alignment = ppAlignRight '''''' End With以上是VBA中的,怎样改成VB6中的呢。

7.高分求解

用 shape 对象的 AnimationSettings 集合对象的 EntryEffect 属性只能添加进入效果,如果要添加强调效果需要利用 slide 对象的 TimeLine 子对象的 MainSequence 子对象的 AddEffect 方法,示例:

Dim shp2 As Shape'定义一个形状对象

Set shp2 = ActivePresentation.Slides(2).Shapes("标题 1")'将要添加效果的形状对象赋值给定义的 shp2,幻灯片编号要自己改,形状的名称要自己改!

ActivePresentation.Slides(2).TimeLine.MainSequence.AddEffect(shp2, msoAnimEffectWave)'在幻灯片 2 的动画序列中添加一个 Effect,针对 shp2 添加 Effect 且类型为 msoAnimEffectWave(波浪形),幻灯片编号要自己改!

8.在ppt vba中,怎样循环取文本框的高度值,并设成一个值

如果您要的效果仅仅是“循环取文本框的高度值,并设成一个值”

那么这样就行咯

Sub 调整对齐文本框()

Dim sld As Slide

Dim sh As Shape

For Each sld In ActivePresentation.Slides

For Each sh In sld.Shapes

sh.Height = 28.375

sh.Width = 107.625

Next

Next

End Sub

pptvba文本框怎么写

转载请注明出处育才学习网 » pptvba文本框怎么写

知识

似的篆体字怎么写

阅读(265)

本文主要为您介绍似的篆体字怎么写,内容包括似字的篆体字怎写,似字的篆体字怎写,“似”的篆体怎么写。之的篆体字写法如下图:

知识

快字大篆怎么写

阅读(485)

本文主要为您介绍快字大篆怎么写,内容包括钟字篆书写法,篆书的“”字怎么写,秦字大篆怎么写,篆书的书字怎么写。钟 小篆:

知识

涨价通知怎么写嘛

阅读(255)

本文主要为您介绍涨价通知怎么写嘛,内容包括简单的涨价通知怎么写,提价通知怎么写,涨价通知怎么写。原发布者:欣欣有关部门收讫各类关于涨价报告中,涨价理由皆名正言顺,也五花八门。以下是涨价通知范本,欢迎阅读。尊敬的客户:您好!首先非常感

知识

桨来理想怎么写

阅读(206)

本文主要为您介绍桨来理想怎么写,内容包括个人理想怎么写,人生理想怎么写,我的理想怎么写啊。一个人无声无息地来到人世间,总不能又空空两手地走了吧!总得留下一些有价值的意义的东西,人贵有理想、有目标,才会拼搏奋斗。人生是多姿多彩的

知识

换地契怎么写

阅读(200)

本文主要为您介绍换地契怎么写,内容包括地契怎么写,房屋地契怎么写,买农村私人地契怎么写。地契由卖方书立,内容包括土地面积、坐落、四至,地价,出让条件,当事人双方、亲属、四邻、中人及官牙等签字盖章。未向官府纳税前的地契称来为“

知识

党支部建设意见怎么写

阅读(256)

本文主要为您介绍党支部建设意见怎么写,内容包括党支部对党支部书记评定意见怎么写,党支部建设存在哪些不足,意见建议,基层党组织意见都写什么最好有范文。目前, 基层党支部工作的现状不容乐观。主要存在下面几方面问题: 支部作用较难发挥 一

知识

莫名英文怎么写

阅读(217)

本文主要为您介绍莫名英文怎么写,内容包括莫名英文怎么写,莫名其妙的英文怎么写,莫名其妙的英文怎么写。莫名其妙no one/tell/its/mystery No one can tell its mystery. be baffled

知识

sheng脏怎么写

阅读(249)

本文主要为您介绍sheng脏怎么写,内容包括嗨神尕藏藏文怎么写,一位清洁工小学英语看图作文怎样写,嗨神尕藏藏文怎么写。清洁工是一个不怕脏不怕累的人,就是他让我尊敬.有一次,我5点钟就起床,是要去爬山.我要出门,就看见在收拾,打扫我家门口的清洁

知识

struts2怎么写增删改查

阅读(186)

本文主要为您介绍struts2怎么写增删改查,内容包括谁知道struts2做增删改查的详细步骤,在struts2中对数据库的增删改查语句,谁知道struts2做增删改查的详细步骤。struts2是一个web层的框架,对数据库的增删改查没有影响,它只负责跟web页面打交

知识

stylesheet怎么写

阅读(207)

本文主要为您介绍stylesheet怎么写,内容包括请问,html代码里的“stylesheet”是什么意思,StyleSheetTheme怎么用,htmlCSSstylesheet。意思是:在<link&gt;标签中,“rel=stylesheet”,rel是关联的意思,关联的是一个样式表(stylesheet)文档

知识

word14版怎么写分数

阅读(214)

本文主要为您介绍word14版怎么写分数,内容包括Word如何写分数,在WORD里怎么输入分数,如何在word文档中写分数。Word中输入分数式的方法:准备资料:Word 20101.进入菜单栏的“插入”列表,选择“域”,(新版的word在插入菜单/文档部件/

知识

yuanquan的汉字怎么写

阅读(286)

本文主要为您介绍yuanquan的汉字怎么写,内容包括yuan.quan怎么写,这个yuan的字怎么写,yuan地的yuan字怎么写。读音为【yuan】的汉字很多。多元输入法(多元汉字与图形符号输入法)可以将第6版《现代汉语词典》中的字全打出来。部分属于万国码6

知识

单位考核报告怎么写

阅读(196)

本文主要为您介绍单位考核报告怎么写,内容包括机关单位年终自评考核报告怎么写,我请问一下单位对员工的考核报告具体要怎么写,事业单位年度工作考核报告怎么写。1.总结必须有情况的概述和叙述,有的比较简单,有的比较详细。这部分内容主要的是

知识

买户口协议怎么写

阅读(191)

本文主要为您介绍买户口协议怎么写,内容包括户口协议书怎么写,迁户口协议怎么写,分户口协议书怎么写。在分家析产时,应注意这样几点: ( 一 ) 分家析产时,要把家庭共有财产和家庭成员的个人财产区分清楚。分家析产只能是分割家庭共有财产,属

知识

css样式怎么写文本框

阅读(518)

本文主要为您介绍css样式怎么写文本框,内容包括css要怎么写文本框,html文本框圆角边框css样式怎么写,设计文本框的css样式的代码怎么写呢设计文本框的css样式的代爱问。代码书写格式<input type="text"/&gt; 最简单的

知识

html中文本框代码怎么写

阅读(247)

本文主要为您介绍html中文本框代码怎么写,内容包括html文本框代码怎么写,如何显示文本框中输入的html代码,JS实现文本框内html代码怎么编写。1.单行文本框:<input type="text" style="height:20px;width:100px;" />2.多行文本

知识

html文本框怎么写

阅读(276)

本文主要为您介绍html文本框怎么写,内容包括html文本框代码怎么写,css要怎么写文本框,如何用html做文本框。1.单行文本框:<input type="text" style="height:20px;width:100px;" />2.多行文本

知识

文本框怎么写

阅读(207)

本文主要为您介绍文本框怎么写,内容包括css要怎么写文本框,文本框写怎么弄,怎么在文本框上写什么内容就提示什么内容。代码书写格式<input type="text"/&gt; 最简单的

知识

html文本框代码怎么写

阅读(181)

本文主要为您介绍html文本框代码怎么写,内容包括html文本框代码怎么写,帮我写一个超简单的html代码两个文本框,JS实现文本框内html代码怎么编写。1.单行文本框:<input type="text" style="height:20px;width:100px;" />2.多行文本

知识

access中怎么把文本框变成组合框

阅读(315)

access中把文本框变成组合框的方法:打开access以后,创建一个空白的窗体,在菜单栏上面依次点击创建窗体设计;打开窗体设计的面板,在菜单栏上打开设计选项,在设计选型中找到并点击组合框按钮;在窗体中点击一次,在点击的位置添加一个组合框,根据自动

知识

PPT怎么将幻灯片中文本框的格式为文字旋转90度

阅读(239)

具体设置方法如下:选中文本框,右键点击文本框,在下拉菜单中点击自定义动画按钮;在自定义动画页面中,点击添加效果按钮;在效果添加页面中,点击强调按钮;在新页面中,点击陀螺旋按钮,再返回到效果添加页面;在效果添加页面中,点击数量按钮,在下拉菜单中点

知识

WPS文字中怎样让多个文本框在同一水平线

阅读(255)

以下是设置多文本在同一水平线方法:1.点击页面布局,点击页面设置,点击文档网格,设置对象与网格对齐,或是对象与其他对象对齐;2.点击视图,勾选网格线,点选文本框,用方向键移动使其与网格线对齐。

[/e:loop]