找回密码
 立即注册
搜索
楼主: cuilizhe

PPT技术答疑(有什么使用上的技术问题请直接回复)

244
回复
8343
查看
[复制链接]

0

主题

6

帖子

84

幻币

一流武者

Rank: 3Rank: 3

积分
305
QQ
2016-3-30 14:14:30 显示全部楼层
楼主我想制作一个当前中国周边安全局势的ppt,字体背景选什么类型的,用地图蓝色水印做背景如何
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

12

帖子

17

幻币

一流武者

Rank: 3Rank: 3

积分
245
QQ
2016-3-30 14:16:31 显示全部楼层
楼主 怎么在PPT里插入一个下载好的抽签软件啊
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

3

帖子

94

幻币

一流武者

Rank: 3Rank: 3

积分
346
2016-3-30 14:17:58 显示全部楼层
楼主好人  请问有没有教程   分享一下吧
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

10

帖子

68

幻币

一流武者

Rank: 3Rank: 3

积分
242
QQ
2016-3-30 14:20:11 显示全部楼层
请问加了演示页面后怎么改代码使得点击“打开题目”按键能有效果啊?
Dim a(1 To 31) As Integer
Dim flag As Boolean
Private Sub CommandButton1_Click()
flag = False
Dim q As Integer
Do While flag = False
q = Fix(Rnd * 31 + 1) '使用随机函数
抽取框.Text = q
DoEvents
Loop
End Sub
Private Sub 抽取框_Change()
End Sub
Private Sub 开始_Click()
flag = True
抽取框.Text = ""
Static n As Integer
n = n + 1
If n > 31 Then
MsgBox ("题目已抽完")
Exit Sub
End If
Do
x = Int((31 - 1 + 1) * Rnd + 1)
j = True
For i = 1 To n - 1
If x = a(i) Then j = False: Exit For
Next i
Loop Until j
a(n) = x
抽取框.Text = a(n)
End Sub
Private Sub 打开抽取的题目_Click()
ActivePresentation.SlideShowWindow.View.GotoSlide Val(抽取框.Text + 2)
End Sub
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

6

帖子

62

幻币

一流武者

Rank: 3Rank: 3

积分
265
QQ
2016-3-30 14:21:57 显示全部楼层
楼主   可不可加你qq哦?  以后ppt不懂的问题好请教你   好想学好ppt哦
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

5

帖子

65

幻币

一流武者

Rank: 3Rank: 3

积分
249
QQ
2016-3-30 14:23:42 显示全部楼层
昨天制作
ppt,为什么一开始能用联网的ppt模板,后来不知道为什么突然用不了了,总是失败。只能用本机的模板
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

4

帖子

87

幻币

江湖少侠

Rank: 2

积分
197
QQ
2016-3-30 14:24:58 显示全部楼层
文字为什么不能组合啊
PPT学习论坛
回复 支持 反对

使用道具 举报

2

主题

9

帖子

61

幻币

一流武者

Rank: 3Rank: 3

积分
279
QQ
2016-3-30 14:25:56 显示全部楼层
有PowerPoint的安装包么?
PPT学习论坛
回复 支持 反对

使用道具 举报

1

主题

5

帖子

16

幻币

一流武者

Rank: 3Rank: 3

积分
240
QQ
2016-3-30 14:25:57 显示全部楼层
生啦
PPT学习论坛
回复 支持 反对

使用道具 举报

0

主题

5

帖子

45

幻币

一流武者

Rank: 3Rank: 3

积分
282
QQ
2016-3-30 14:26:13 显示全部楼层
怎么做母版   从来不会
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册