新年新作 ppt语文课件助手

wjhere

原帖由 linchangh 于 2011-2-6 11:52 发表
软件更新后，问题仍然存在，等待解决，谢谢！还有，动画图片功能能增加吗？

谢谢测试。
问题是什么，插入本地媒体的问题应该解决了。下载失败的问题在我的机子里面没有发现，只好想办法改进下载方法了。
动画图片功能是什么，就是上次您说的同步歌词的那种效果吗，我的文字动画就是根据那位大侠的代码移植过来的，呵呵。不知道要什么样的效果。还有发现在ppt里面播放过程中，想在某个时刻播放某个外部声音文件很难实现，不知道有没有这方面的资料，要不就可以一边播放词语，一边播放朗读声音就完美了。

linchangh

原帖由 wjhere 于 2011-2-6 12:33 发表


谢谢测试。
问题是什么，插入本地媒体的问题应该解决了。下载失败的问题在我的机子里面没有发现，只好想办法改进下载方法了。
动画图片功能是什么，就是上次您说的同步歌词的那种效果吗，我的文字动画就是根据 ...

我测试的问题仍然是相关文字不能下载，至于动画图片也可以像你说的那样效果，因为，课件使用中，有时需要浏览大量图片，这些图片怎么批量或单个插进去，至于图片播放效果可预设一些动作供选择，播放中可随时控制声音。这样，既可播放文字内容（如朗读课文），也能浏览图片，这样不更好吗！这种效果如果用flash软件事先做好调用，PPT本身也可以，但较麻烦，不是每个人都精通flash的，另外，控件选项可以考虑保留，谢谢！

[ 本帖最后由 linchangh 于 2011-2-6 14:13 编辑 ]

laose

不能下载，应该是数据库的问题吧，swf格式的笔顺动画字库应该是有限的吧，比如朱镕基的“镕”字似乎就没有！请楼主说明。

[ 本帖最后由 laose 于 2011-2-6 19:44 编辑 ]

linchangh

同时输入多个文字时出现相关常用文字不能下载，但原版一次只输入一个字基本上能下载望楼主看看是否是代码存在不妥的地方需改进？

wjhere

好了，一下子有那么多朋友测试，高兴呀，可惜慢慢要忙了，没有时间做了。像假期里这样整段的时间好好坐下来弄一样东西真是快乐，抽时间，我会好好把它弄好的。 对于网上的笔顺 一个楼上chuhaiou兄说的那种，但不是这个网址，一个是爱词霸网站的。两种笔顺都不全，但常用字应该有，可以互相补充吧。对于下载失败的问题，最近可以尝试改变一下下载方式，看看能否解决。

ly27ssh

建议：

保留第1、2、4、6四个按钮，原因如下：
1、插入笔顺是实用的功能，虽然Flash动画自动下载在演示文稿所在的目录下了，但插入笔顺动画后，不点“播放修复”按钮，播放时无反应，故此该按钮虽然显得多余，但还需保留；
2、“手动挖出填空”更符合WINdows下先选中，再操作的原则；
3、“文本动画”功能很不成熟，不如暂时去掉。
4、“手动挖出填空”中，挖出的文本会以百叶窗动画出现，建议改为“渐变”动画，更适合演示——这个关系不大，是我个人的感觉，别人如何看待，就不清楚了。

wjhere

原帖由 chuhaiou 于 2011-2-6 23:21 发表
第三个按钮用的是不是WindowSelectionChange这个触发功能？

谢谢测试，是的
2011.2.6
修正样式2下载方式
改进文本动画效果

wjhere

原帖由 ly27ssh 于 2011-2-6 22:10 发表
建议：
869023
保留第1、2、4、6四个按钮，原因如下：
1、插入笔顺是实用的功能，虽然Flash动画自动下载在演示文稿所在的目录下了，但插入笔顺动画后，不点“播放修复”按钮，播放时无反应，故此该按钮虽然显得多 ...

谢谢，第二个按钮的功能也可以添加到第一个按钮一同实现，但是如果加载别的文档就不好处理，移到别的机子也不好处理，所以只好另外设这样一个按钮
第五个按钮的动画文本的功能用了制作复习词语的效果个人很满意，我也是在上学期上课才开始学习使用课件（落后呀），教学一二年级，几乎每节课都要读一读词语，不知道有什么好办法，假期里就想写这个小工具。
我试试能不能找到渐变功能的动画效果参数，E文不好，我挨个试参数，找到了百叶窗效果就使用了。要是能列举出每个参数的效果就好了

msoAnimEffectAppear        出现
msoAnimEffectArcUp        曲线向上
msoAnimEffectAscend        上升
msoAnimEffectBlast        爆炸
msoAnimEffectBlinds        百叶窗
msoAnimEffectBoldFlash        加粗闪烁
msoAnimEffectBoldReveal        加粗展示
msoAnimEffectBoomerang       
msoAnimEffectBounce       
msoAnimEffectBox       
msoAnimEffectBrushOnColor       
msoAnimEffectBrushOnUnderline       
msoAnimEffectCenterRevolve       
msoAnimEffectChangeFillColor       
msoAnimEffectChangeFont       
msoAnimEffectChangeFontColor       
msoAnimEffectChangeFontSize
msoAnimEffectChangeFontStyle
msoAnimEffectChangeLineColor
msoAnimEffectCheckerboard
msoAnimEffectCircle
msoAnimEffectColorBlend
msoAnimEffectColorReveal
msoAnimEffectColorWave
msoAnimEffectComplementaryColor
msoAnimEffectComplementaryColor2
msoAnimEffectContrastingColor
msoAnimEffectCrawl
msoAnimEffectCredits
msoAnimEffectCustom
msoAnimEffectDarken
msoAnimEffectDesaturate
msoAnimEffectDescend
msoAnimEffectDiamond
msoAnimEffectDissolve
msoAnimEffectEaseIn
msoAnimEffectExpand
msoAnimEffectFade
msoAnimEffectFadedAscend
msoAnimEffectFadedSwivel
msoAnimEffectFadedZoom
msoAnimEffectFlashBulb
msoAnimEffectFlashOnce
msoAnimEffectFlicker
msoAnimEffectFlip
msoAnimEffectFloat
msoAnimEffectFly
msoAnimEffectFold
msoAnimEffectGlide
msoAnimEffectGrowAndTurn
msoAnimEffectGrowShrink
msoAnimEffectGrowWithColor
msoAnimEffectLighten
msoAnimEffectMediaPause
msoAnimEffectMediaPlay
msoAnimEffectMediaStop
msoAnimEffectPath4PointStar
msoAnimEffectPath5PointStar
msoAnimEffectPath6PointStar
msoAnimEffectPath8PointStar
msoAnimEffectPathArcDown
msoAnimEffectPathArcLeft
msoAnimEffectPathArcRight
msoAnimEffectPathArcUp
msoAnimEffectPathBean
msoAnimEffectPathBounceLeft
msoAnimEffectPathBounceRight
msoAnimEffectPathBuzzsaw
msoAnimEffectPathCircle
msoAnimEffectPathCrescentMoon
msoAnimEffectPathCurvedSquare
msoAnimEffectPathCurvedX
msoAnimEffectPathCurvyLeft
msoAnimEffectPathCurvyRight
msoAnimEffectPathCurvyStar
msoAnimEffectPathDecayingWave
msoAnimEffectPathDiagonalDownRight
msoAnimEffectPathDiagonalUpRight
msoAnimEffectPathDiamond
msoAnimEffectPathDown
msoAnimEffectPathEqualTriangle
msoAnimEffectPathFigure8Four
msoAnimEffectPathFootball
msoAnimEffectPathFunnel
msoAnimEffectPathHeart
msoAnimEffectPathHeartbeat
msoAnimEffectPathHexagon
msoAnimEffectPathHorizontalFigure8
msoAnimEffectPathInvertedSquare
msoAnimEffectPathInvertedTriangle
msoAnimEffectPathLeft
msoAnimEffectPathLoopdeLoop
msoAnimEffectPathNeutron
msoAnimEffectPathOctagon
msoAnimEffectPathParallelogram
msoAnimEffectPathPeanut
msoAnimEffectPathPentagon
msoAnimEffectPathPlus
msoAnimEffectPathPointyStar
msoAnimEffectPathRightTriangle
msoAnimEffectPathSCurve1
msoAnimEffectPathSCurve2
msoAnimEffectPathSineWave
msoAnimEffectPathSpiralLeft
msoAnimEffectPathSpiralRight
msoAnimEffectPathSpring
msoAnimEffectPathSquare
msoAnimEffectPathStairsDown
msoAnimEffectPathSwoosh
msoAnimEffectPathTeardrop
msoAnimEffectPathTrapezoid
msoAnimEffectPathTurnDown
msoAnimEffectPathTurnRight
msoAnimEffectPathTurnUp
msoAnimEffectPathTurnUpRight
msoAnimEffectPathVerticalFigure8
msoAnimEffectPathWave
msoAnimEffectPathZigzag
msoAnimEffectPeek
msoAnimEffectPinwheel
msoAnimEffectPlus
msoAnimEffectRandomBars
msoAnimEffectRandomEffects
msoAnimEffectRiseUp
msoAnimEffectShimmer
msoAnimEffectSling
msoAnimEffectSpin
msoAnimEffectSpinner
msoAnimEffectSpiral
msoAnimEffectSplit
msoAnimEffectStretch
msoAnimEffectStretchy
msoAnimEffectStrips
msoAnimEffectStyleEmphasis
msoAnimEffectSwish
msoAnimEffectSwivel
msoAnimEffectTeeter
msoAnimEffectThinLine
msoAnimEffectTransparency
msoAnimEffectUnfold
msoAnimEffectVerticalGrow
msoAnimEffectWave
msoAnimEffectWedge
msoAnimEffectWheel
msoAnimEffectWhip
msoAnimEffectWipe
msoAnimEffectZip
msoAnimEffectZoom
msoAnimEffectLightSpeed
特别请教，还有添加动画好像有两种方法吧？
'发现ppt的动画效果vba可以有两种方法实现
'下面两个过程都可以让形状出现，但是过程1中的效果参数好像不多
'但有的参数很具体，比如飞入就有好几个参数。一时弄不明白
'
'大家是如何选择的？
Sub test1()
With ActivePresentation.Slides(1).Shapes(1).AnimationSettings
    .EntryEffect = ppEffectAppear
End With

End Sub
Sub test2()
With ActiveWindow.Selection.SlideRange(1)
.TimeLine.MainSequence.AddEffect .Shapes(1), msoAnimEffectAppear, , msoAnimTriggerOnPageClick
End With
End Sub

wjhere

加上一些条件限制就ok了
Private Sub myPPt_WindowSelectionChange(ByVal Sel As PowerPoint.Selection)
On Error Resume Next
Dim myL As Integer
myL = Len(Sel.TextRange.Text)
If btnToBlank.faceID <> 162 Then Exit Sub
If Sel.Type = ppSelectionText And Sel.TextRange.Characters(1) <> "_" Then

If myL > 0 And myL < 15 Then CutBlank
End If

End Sub

wjhere

If Sel.Type = ppSelectionText 就是限定选定文本呀