Screen Updating = True End Sub Sub Remove Empty Text Boxes() Dim Slide Obj As Slide Dim Shape Obj As Shape Dim Shape Index As Integer For Each Slide Obj In Active Presentation.
When we set Screen Updating property of an application object to false then it will speed up the macro. Please find the below example for Screen Updating Property of an application object in excel VBA.Raise Number:=vb Object Error ERR_VERSION_NOT_SUPPORTED, _ Description:="Supported for some Power Point versions only." Exit Property End Select If hwnd = 0 Then Err.Raise Number:=vb Object Error ERR_NO_WINDOW_HANDLE, _ Description:="Unable to get the Power Point Window handle" Exit Property End If It appears that I need the Frame Class of PP2010, even Google didn'thelp Any ideas?Information(wd With In Table) = False Then Exit Sub Target Text = Input Box$("Enter target text:", "Delete Rows") For Each o Row In Selection. Delete Next o Row End Sub Public Sub Delete Empty Rows()Dim o Table As Table, o Row As Range, o Cell As Cell, Counter As Long, _Num Rows As Long, Text In Row As Boolean' Specify which table you want to work on. Tables(1)' Set a range variable to the first row's range Set o Row = o Table. While Excel will set this back to True whenever focus is passed back to Excel (your macro finishes) in most cases, it pays to play it safe and include the code at the end.