'Callback for rxgal2 getItemImage
Sub rxgal2_getItemImage(control As IRibbonControl, index As Integer, ByRef returnedVal)
With ActiveSheet.ChartObjects.Add(0, 0, 10, 10)
.Name = "ChartVolumeMetricsDevEXPORT"
End With
ActiveSheet.Shapes("ChartVolumeMetricsDevEXPORT").Fill.ForeColor.RGB = RGB(255, 255, 0)
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export (ThisWorkbook.Path & "\testmeExportChart.jpg")
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete
Set returnedVal = LoadPicture(ThisWorkbook.Path & "\testmeExportChart.jpg")
Kill ThisWorkbook.Path & "\testmeExportChart.jpg"
End Sub
keby ste zistili nejake lepsie riesenie budem len radcitovat