Use 

With getobject("G:\OF\example.pptx")

end with
Avoid 'Select' & 'Activate' & redundant Object Variables in VBA.