Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
　　' 画像が挿入されたExcelファイルの読み込み
　　FpSpread1.OpenExcel("Book1.xlsx")
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
　　' アクティブなシェイプの取得
　　Dim ps As FarPoint.Win.Spread.DrawingSpace.PSShape
　　ps = FpSpread1.ActiveSheet.GetShape(FpSpread1.ActiveWindowlessObject.Name)

　　' シェイプに画像が設定されている場合
　　If Not ps.Picture Is Nothing Then
　　　　' その画像を保存します。
　　　　ps.Picture.Save("test.jpg")
　　End If
End Sub

private void Form1_Load(object sender, EventArgs e)
{
　　// 画像が挿入されたExcelファイルの読み込み
　　fpSpread1.OpenExcel("Book1.xlsx");
}

private void button1_Click(object sender, EventArgs e)
{
　　// アクティブなシェイプの取得
　　FarPoint.Win.Spread.DrawingSpace.PSShape ps;
　　ps = fpSpread1.ActiveSheet.GetShape(fpSpread1.ActiveWindowlessObject.Name);

　　// シェイプに画像が設定されている場合
　　if (ps.Picture != null)
　　{
　　　　// その画像を保存します
　　　　ps.Picture.Save("test.jpg");
　　}
}