Palo235
25.03.13,11:45
Ahojte,
potreboval by som poradit ako spravit galeriu farieb pomocou VBA (nieco podobne ako Mso: FontColorPicker). Resp. spravit label alebo jpg. galeriu nemam problem ... neviem ako do galerie priradit vlastni objekt 2x2 a zaroven mu priradit farbu .... Vedel by niekto poradit???
prikladam link pre lepsie pochopenie a aj xlsm:
http://msdn.microsoft.com/en-us/library/office/dd756403(v=office.12).aspx
potreboval by som poradit ako spravit galeriu farieb pomocou VBA (nieco podobne ako Mso: FontColorPicker). Resp. spravit label alebo jpg. galeriu nemam problem ... neviem ako do galerie priradit vlastni objekt 2x2 a zaroven mu priradit farbu .... Vedel by niekto poradit???
prikladam link pre lepsie pochopenie a aj xlsm:
http://msdn.microsoft.com/en-us/library/office/dd756403(v=office.12).aspx
Palo235
26.03.13,09:41
uz som na nieco dosiel ale nieje to pekne riesenie
'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
za lepsi napad budem len rad :)
'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
za lepsi napad budem len rad :)