Create Marker Symbol From MOLE Cached Graphic Snippet

///<summary>Exports a MOLE Cached Graphic to an IPictureMarkerSymbol.</summary>
///  
///<param name="cachedGraphic">An ICachedGraphic interface.</param>
///<param name="display">An IDisplay interface. (ActiveView.ScreenDisplay if possible)</param>
///<param name="color">An IColor interface that is the transparent color for the exported image.</param>
///<param name="exportSize">A System.Int32 that is the pixel heigth/width size of the exported image. Example: 256</param>
///<param name="symbolSize">A System.Double that is the MarkerSymbol size. Example: 72</param>
///   
///<returns>An IMarkerSymbol interface if successful, Nothing otherwise</returns>
///   
///<remarks>
///Call this method to export a MOLE Cached Graphic to an IPictureMarkerSymbol
///This IPictureMarkerSymbol can then be used as any other MarkerSymbol would
///</remarks>
public ESRI.ArcGIS.Display.IMarkerSymbol CreateMarkerSymbolFromMOLECachedGraphic(ESRI.ArcGIS.DefenseSolutions.ICachedGraphic cachedGraphic, ESRI.ArcGIS.Display.IDisplay display, ESRI.ArcGIS.Display.IColor color, System.Int32 exportSize, System.Double symbolSize)
{
  // Is it is a valid graphic
  if (cachedGraphic == null)
  {
    System.Diagnostics.Trace.WriteLine("Null Graphic provided");
    return null; // i.e. fail
  }

  // Create a picture marker symbol from the IPictureMarkerSymbol interface
  ESRI.ArcGIS.Display.IPictureMarkerSymbol pictureMarkerSymbol=new ESRI.ArcGIS.Display.PictureMarkerSymbolClass();

  ESRI.ArcGIS.DefenseSolutions.ICreateBitmap createBitmap=cachedGraphic as ESRI.ArcGIS.DefenseSolutions.ICreateBitmap; // Dynamic Cast
  ESRI.ArcGIS.Display.IColor bitmapColor=color as ESRI.ArcGIS.Display.IColor; // Dynamic Cast
  stdole.IPictureDisp picture=createBitmap.DrawToPicture(display, exportSize, exportSize, 1.2, bitmapColor);

  pictureMarkerSymbol.Picture=picture;

  // Set the picture marker transparency color and symbol�s size (in points)
  pictureMarkerSymbol.BitmapTransparencyColor=color;
  pictureMarkerSymbol.Size=symbolSize;

  // Return the picture marker�s IMarkerSymbol reference
  return pictureMarkerSymbol as ESRI.ArcGIS.Display.IMarkerSymbol; // Dynamic Cast
}

'''<summary>Exports a MOLE Cached Graphic to an IPictureMarkerSymbol.</summary>
'''  
'''<param name="cachedGraphic">An ICachedGraphic interface.</param>
'''<param name="display">An IDisplay interface. (ActiveView.ScreenDisplay if possible)</param>
'''<param name="color">An IColor interface that is the transparent color for the exported image.</param>
'''<param name="exportSize">A System.Int32 that is the pixel heigth/width size of the exported image. Example: 256</param>
'''<param name="symbolSize">A System.Double that is the MarkerSymbol size. Example: 72</param>
'''   
'''<returns>An IMarkerSymbol interface if successful, Nothing otherwise</returns>
'''   
'''<remarks>
'''Call this method to export a MOLE Cached Graphic to an IPictureMarkerSymbol
'''This IPictureMarkerSymbol can then be used as any other MarkerSymbol would
'''</remarks>
Public Function CreateMarkerSymbolFromMOLECachedGraphic(ByVal cachedGraphic As ESRI.ArcGIS.DefenseSolutions.ICachedGraphic, ByVal display As ESRI.ArcGIS.Display.IDisplay, ByVal color As ESRI.ArcGIS.Display.IColor, ByVal exportSize As System.Int32, ByVal symbolSize As System.Double) As ESRI.ArcGIS.Display.IMarkerSymbol

  ' Is it is a valid graphic
  If cachedGraphic Is Nothing Then
    System.Diagnostics.Trace.WriteLine("Nothing Graphic provided")
    Return Nothing
  End If

  ' Create a picture marker symbol from the IPictureMarkerSymbol interface
  Dim pictureMarkerSymbol As ESRI.ArcGIS.Display.IPictureMarkerSymbol=New ESRI.ArcGIS.Display.PictureMarkerSymbolClass

  Dim createBitmap As ESRI.ArcGIS.DefenseSolutions.ICreateBitmap=CType(cachedGraphic, ESRI.ArcGIS.DefenseSolutions.ICreateBitmap) ' Explicit Cast
  Dim bitmapColor As ESRI.ArcGIS.Display.IColor=color

  ' Set the picture marker transparency color and symbol�s size (in points)
  Dim pictureDisp As stdole.IPictureDisp=createBitmap.DrawToPicture(display, exportSize, exportSize, 1.2, bitmapColor)
  pictureMarkerSymbol.Picture=pictureDisp
  pictureMarkerSymbol.BitmapTransparencyColor=color
  pictureMarkerSymbol.Size=symbolSize

  Dim markerSymbol As ESRI.ArcGIS.Display.IMarkerSymbol=pictureMarkerSymbol

  'Return the picture marker�s IMarkerSymbol reference
  Return markerSymbol

End Function