how to change revision cloud shape VBA code excel 2010

[bugserm]

Hi,

anyone know how to change the revision cloud from
<v:shapetype id=_x0000_t75 stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" oreferrelative="t" o:spt="75" coordsize="21600,21600">

to

here is the original code:

Sub Arc(StartX, StartY, EndX, EndY, angle)
Dim ArcHeight As Single
Dim ArcWidth As Single
Dim AspectRatio As Single 'used to adjust the ration of arc height to width
On Error GoTo ErrorHandler
AspectRatio = 0.5 'An Aspect Ratio of 1 = a semi-circle
If StartX = EndX Then 'vertical edge
ArcHeight = Abs(StartY - EndY) / 2
ArcWidth = AspectRatio * ArcHeight
End If
If StartY = EndY Then 'horizontal edge
ArcWidth = Abs(StartX - EndX) / 2
ArcHeight = AspectRatio * ArcWidth
End If
' Draw an arc on the page
Activesheet.Shapes.AddShape(msoShapeArc, StartX, StartY, ArcWidth, ArcHeight).Select
If EndY > StartY Then 'left side
Selection.ShapeRange.Adjustments.Item(1) = -270
Selection.ShapeRange.Adjustments.Item(2) = -90
End If
If EndX > StartX Then 'bottom
Selection.ShapeRange.IncrementLeft ArcWidth
Selection.ShapeRange.IncrementTop -ArcHeight
Selection.ShapeRange.Adjustments.Item(1) = 0
Selection.ShapeRange.Adjustments.Item(2) = -180
End If
If StartY > EndY Then 'right side
Selection.ShapeRange.IncrementTop (-2 * ArcHeight)
Selection.ShapeRange.Adjustments.Item(2) = 90
End If
If StartX > EndX Then 'top
Selection.ShapeRange.IncrementLeft -ArcWidth
Selection.ShapeRange.IncrementTop -ArcHeight
Selection.ShapeRange.Adjustments.Item(1) = 180
End If
Exit Sub

</SPAN><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><vath o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></vath><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype><v:shape style="WIDTH: 77.25pt; HEIGHT: 16.5pt" id=_x0000_i1025 alt="" type="#_x0000_t75"><v:imagedata o:href="cid:image002.png@01CE2583.9063B4C0" src="file:///C:\DOCUME~1\HANIF~1.KAM\LOCALS~1\Temp\msohtmlclip1\01\clip_image001.png"></v:imagedata></v:shape></SPAN>