ppt如何通过vba代码“擦除幻灯片上的所有墨迹”

wzs07

ppt播放时，点击按钮，采用vba擦除幻灯片上的所有墨迹；目的是对试题的文本框进行涂鸦（文本框内容根据按钮变动）；
1.点击按钮→同时擦除幻灯片上的所有墨迹；即启用播放的右键菜单“指针选项”→擦除幻灯片的所有墨迹；如何采用vba实现（同一播放页面轮播试题时，对试题涂鸦）

ppt如何通过代码“擦除幻灯片上的所有墨迹”；
2.试验采用 ActivePresentation.SlideShowWindow.View.EraseDrawing可以“临时”清除墨迹，但是再次使用墨迹，鼠标经过的地方这些墨迹又回跑回来！！！下面的效果

3.采用inkpicture控件，会覆盖我的文字文本框

lss001

Private Sub CommandButtonl_Click()
    Dim sld As Slide, shp As Shape
    For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes
        '清除非放映墨迹
        If shp.Type = 23 Then shp.Delete
   Next
   Next
End Sub

wzs07

lss001 发表于 2024-12-13 19:56
Private Sub CommandButtonl_Click()
    Dim sld As Slide, shp As Shape
    For Each sld In ActivePr ...

这个只能擦除上次播放的笔迹，幻灯片播放后保存的笔迹再次播放时该代码可以擦除，但是本次不能擦除；

采用 ActivePresentation.SlideShowWindow.View.EraseDrawing;可以临时清除，但是发现再次使用笔迹时，笔迹经过的地方之前的墨迹又回显现出来，类似隐藏一样

lss001

wzs07 发表于 2024-12-16 08:56
这个只能擦除上次播放的笔迹，幻灯片播放后保存的笔迹再次播放时该代码可以擦除，但是本次不能擦除；

...

Private Sub CommandButton1_Click()
With ActivePresentation.SlideShowWindow.View
    Call  .EraseDrawing '清除放映墨迹
    Call .GotoSlide(.CurrentShowPosition, True)
End With
End Sub

wzs07

lss001 发表于 2024-12-16 13:07
Private Sub CommandButton1_Click()
With ActivePresentation.SlideShowWindow.View
    Call  .Erase ...

谢谢，果然强大👍！！！！！！！使用后会有屏幕闪烁，可以优化吗？