

To overcome this, i prepare the VBA script below. Not sure if there is a non-VBA method that can be used to solve this, but if yes, please let me know also.
Sub resize()
Dim x As Long
Dim y As Long
Dim i As Long
Dim arrayCount As Integer
Dim shapeNameArray() As String
' Loop through every presentation slide(s)
For x = 1 To ActivePresentation.Slides.Count
' Manipulate shapes in notespage view
With ActivePresentation.Slides(x).NotesPage
' Loop through every shapes in the notepage view slide
For y = 1 To .Shapes.Count
' To select the presentation slide
' Usually the presentation slide will be on top,
' so use top property to limit the selection
' the use of height property is optional
' the use of this is mainly to filter away shapes like
' header, footer and page number
' which might be in place, and usually those shapes' height will not
' be higher than 90, so i use this as the condition
' The reason i say is optional is because you can always go to
' Edit Header and Footer to take out
' all header, footer and page number
' and reapply them later
' 1 inchi= 72
If .Shapes(y).Top < 100 And .Shapes(y).Height > 90 Then
.Shapes(y).Height = 364.32
.Shapes(y).Width = 486
.Shapes(y).Top = 28.08
.Shapes(y).Left = 46.8
' To select the notes page
' Usually notes page will be be below presentation slide
' so use top property to limit the selection
' Again use of height is optional
ElseIf .Shapes(y).Height > 90 And .Shapes(y).Top > 100 Then
.Shapes(y).Height = 322.56
.Shapes(y).Width = 486
.Shapes(y).Top = 404.64
.Shapes(y).Left = 46.8
Else
' Do nothing
' or you want to apply something to the filtered shape here
End If
Next y
End With
Next x
End Sub
'Create a file to write the result
'============================================================
FileName = "PingResult.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(FileName)) Then
Set resultFile = fso.OpenTextFile(FileName, 8)
else
Set resultFile = fso.CreateTextFile(FileName, true)
end if
subnetID = "192.168.35."
For range = 2 to 254 ' specify range of ip
ipAddress = subnetID & range
if Ping(ipAddress) then
resultFile.writeline ipAddress & " is alive"
else
resultFile.writeline ipAddress & " is dead"
end if
next
'Using Win32_PingStatus class
'============================================================
Function Ping(ipAddress)
Set objWMIService = _
GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_PingStatus " & _
"Where Address = '" & ipAddress & "'")
For Each objItem in colItems
If objItem.StatusCode = 0 Then
Ping = True
else
Ping = False
End If
Next
End Function