Zavrieť

Porady

Ribbon Galleries

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/libr...ffice.12).aspx
Naposledy upravil Palo235 : 25.03.13 at 13:51
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    Palo235 je offline (nepripojený) Palo235

    Palo235
    uz som na nieco dosiel ale nieje to pekne riesenie

    Code:
    '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

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.