删除的占位符，怎样用VBA恢复回来呢

chuhaiou

Sub 删除占位符()
    Dim sld As Slide, shp As Shape, found As Boolean
    Do
        found = False
        For Each sld In ActivePresentation.Slides
            For Each shp In sld.Shapes
                If shp.Type = 14 And Not shp.TextFrame.HasText Then
                    found = True
                    shp.Delete
                End If
            Next
        Next
    Loop While found = True
End Sub

dongdonggege

难。
ppt好像只记录增加的。
建议：
1、在删除过程中，你可以记录下你删除的图形，设置个参数，在恢复时的调用。
2、ppt窗口有个撤销，也就是Ctrl+Z，如果想用程序实现，可以向ppt窗口发送组合键（不是代码窗口），但是这个过程不能间隔。所以它是个撤销的程序。
我有个程序，虽然暂时没能实现，但可以给你提供参考。修改下，估计能实现。

dongdonggege

应该是撤销程序

1. Private Declare Function GetDesktopWindow Lib "user32" () As Long
   
2. Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
   
3. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
4. Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
   
5. Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hwnd1 As Long, ByVal hwnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
   
6. Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
   
7. Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
   
8. Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
   
9. 
   
10. 'Private Const WM_KEYDOWN = &H100     '按下键位
    
11. 'Private Const WM_KEYUP = &H101       '弹起键位
    
12. 'Private Const WM_CHAR = &H102        '清除键位
    
13. 'Private Const WM_SYSKEYDOWN = &H104  '按下系统键位
    
14. 'Private Const WM_SYSKEYUP = &H105    '弹起系统键位
    
15. 
    
16. Private Const VK_CONTROL = 17
    
17. Private Const vbKeyZ = 90
    
18. Private Const WM_KEYDOWN = &H100
    
19. Private Const WM_KEYUP = &H101
    
20. Private Const WM_CHAR = &H102
    
21. 
    
22. Private Const GW_CHILD = 5
    
23. Private Const GW_HWNDNEXT = 2
    
24. 
    
25. Private Sub 查找窗口句柄getprocessname()
    
26.   Dim lngDeskTopHandle As Long
    
27.   Dim lngHand As Long
    
28.   Dim strName As String * 255
    
29.   Dim hwnd As Long
    
30.   lngDeskTopHandle = GetDesktopWindow()
    
31.   lngHand = GetWindow(lngDeskTopHandle, GW_CHILD)
    
32.   Do While lngHand <> 0
    
33.      GetWindowText lngHand, strName, Len(strName)
    
34.      lngHand = GetWindow(lngHand, GW_HWNDNEXT)
    
35.      If Left$(strName, 1) <> vbNullChar Then
    
36.         If InStr(strName, "Microsoft Visual Basic - 演示文稿1") Then
    
37.             hwnd = FindWindow(vbNullString, CStr(strName)) '此处s即所需句柄，您可以在此处中断并获取该句柄，或将句柄数据写入数组以获取所有包含""的窗口句柄
    
38.             'MsgBox hwnd
    
39.             hwnd1 = FindWindowEx(hwnd, 0, 0, vbNullString)
    
40.             'keybd_event vbKeyControl, &H11, 0, 0
    
41.             PostMessage hwnd, WM_KEYDOWN, VK_CONTROL, vbKeyZ
    
42.             'keybd_event vbKeyControl, &H11, 0, 0
    
43.             PostMessage hwnd, WM_KEYUP, VK_CONTROL, vbKeyZ
    
44.         End If
    
45.      End If
    
46.   Loop
    
47. End Sub

复制代码

dongdonggege

试试这个程序，我没怎么看。