'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
Ribbon Galleries