yes5210 发表于 2016-4-12 13:34:28

别的地方粘贴过来的内容会自动带上项目编号

别的地方粘贴过来的内容会自动带上项目编号,请问这个如何取消呢.直接复制一段话到ppt中前面会自动带上项目编号.我之前记得将ppt另存为xml格式然后删除个什么之后保存在打开就好了,但是现在忘了,求各位解答一下,谢谢.

user_hrfgp 发表于 2016-4-12 15:20:10

先回答你的问题：鼠标进入文本框，“放在大写字母K前”，按BackSpace键，向前删除。
这个宽屏幕是这样的，设置幻灯片的宽度、高度：默认宽度：720，高度,540，这个屏幕宽度：960.25，高度,540.除了vba，我不会设置。
[*]Sub GetSlideSize()
[*]      Dim Width As Single
[*]      Dim Height As Single
[*]      With ActivePresentation.PageSetup
[*]         Width = .SlideWidth
[*]         Height = .SlideHeight
[*]      End With
[*]      MsgBox "幻灯片的宽度是: " & Width '720
[*]       MsgBox "幻灯片的高度是:" & Height '540End Sub

复制代码
只要把代码中的.width或.height改为自己想要的数值就行。

user_mfmzh 发表于 2016-4-12 15:39:17

上个代码中，如果想转换成“英寸”，改width=.SlideWidth / 72,height=.Slideheight/72.
下个代码获取幻灯片大小（英寸为单位） ：
[*]Sub SetSlideSize2()
[*]   ' 这个常数用于把单位设为英寸
[*]      Const PTS As Byte = 72
[*]      With ActivePresentation.PageSetup
[*]         .SlideWidth = 8 * PTS '8英寸
[*]         .SlideHeight = 6 * PTS
[*]      End WithEnd Sub

复制代码

user_xcafv 发表于 2016-4-12 16:57:01

手动删除掉项目编号我知道的,我的意思,从别的txt文档复制一句粘贴过来就会自动条件项目编号.

takashi79 发表于 2016-4-12 17:04:41

我们不能空口说理论，你得把文件传上来，我看看，我又不会猜，即使其中的片段。

user_tpjwfwfg 发表于 2016-4-12 17:06:32

附件在一楼呢,麻烦您帮忙给看看,我真是没辙了,重新做一个确实能好,但是我有很多这样的模板.

栳蔢至仧 发表于 2016-4-12 17:36:15

通过录制宏发现：
1、你的文本框是本来就带有格式的，不是从下面“绘图”图形中插入的，应该是从原来的大矩形缩小来的。
2、录制宏，正常的图形名称为“Shapes("Text Box 3")”，你的图形名称为“Shapes("矩形 2")”。
3、正常文本框——文本框格式——文本框——自选图形文字换行（打勾），而你的没有。
若无格式，必须从“绘图”中插入。

545445 发表于 2016-4-12 17:39:41

选择性粘贴------无格式文本
页: [1]
查看完整版本: 别的地方粘贴过来的内容会自动带上项目编号