Set oInlineShape = Selection.InlineShapes.AddOLEControl(ClassType:= ShockwaveFlash.ShockwaveFlash.10)

Hi All,

I am trying below code to add  ShockwaveFlash control in document but in some machine i am getting error.

there is any way to get latest version of ShockwaveFlash.10.

i am using office 2007

Dim oInlineShape As InlineShape
Dim Movie_Reference as string

Movie_Reference = "http://www.domain.com"
  Set oInlineShape = Selection.InlineShapes.AddOLEControl(ClassType:="ShockwaveFlash.ShockwaveFlash.10")