Kopiere nyt farveskema rundt i hele virksomheden

Du kan lave en color-macro der ændrer farverne i paletten til dem som du skal bruge. Se eksempelvis denne som vi bruger:

Sub color_palette()

    ActiveWorkbook.Colors(46) = RGB(9, 91, 166)

    ActiveWorkbook.Colors(47) = RGB(37, 45, 101)

    ActiveWorkbook.Colors(3) = RGB(0, 204, 255)

    ActiveWorkbook.Colors(4) = RGB(243, 175, 0)

    ActiveWorkbook.Colors(5) = RGB(218, 35, 9)

    ActiveWorkbook.Colors(6) = RGB(24, 150, 76)

    ActiveWorkbook.Colors(7) = RGB(128, 128, 128)

    ActiveWorkbook.Colors(8) = RGB(51, 0, 102)

    ActiveWorkbook.Colors(9) = RGB(255, 204, 51)

    ActiveWorkbook.Colors(10) = RGB(255, 0, 255)

    ActiveWorkbook.Colors(11) = RGB(255, 102, 0)

    ActiveWorkbook.Colors(12) = RGB(102, 102, 204)

    ActiveWorkbook.Colors(13) = RGB(241, 151, 102)

    ActiveWorkbook.Colors(14) = RGB(255, 102, 0)
   
    ActiveWorkbook.Colors(15) = RGB(37, 45, 101)

    ActiveWorkbook.Colors(16) = RGB(191, 215, 48)

    ActiveWorkbook.Colors(18) = RGB(218, 35, 9)

    ActiveWorkbook.Colors(20) = RGB(165, 160, 123)
   
    ActiveWorkbook.Colors(21) = RGB(0, 160, 198)

    ActiveWorkbook.Colors(22) = RGB(242, 199, 2)

    ActiveWorkbook.Colors(23) = RGB(152, 24, 110)

    ActiveWorkbook.Colors(24) = RGB(255, 127, 0)

    ActiveWorkbook.Colors(25) = RGB(92, 157, 101)

    ActiveWorkbook.Colors(26) = RGB(28, 44, 144)

    ActiveWorkbook.Colors(27) = RGB(176, 0, 27)

    ActiveWorkbook.Colors(28) = RGB(87, 48, 21)

    ActiveWorkbook.Colors(48) = RGB(193, 201, 34)

    ActiveWorkbook.Colors(34) = RGB(255, 0, 255)

    ActiveWorkbook.Colors(36) = RGB(202, 65, 29)

    ActiveWorkbook.Colors(37) = RGB(46, 78, 75)

    ActiveWorkbook.Colors(38) = RGB(43, 87, 158)

    ActiveWorkbook.Colors(39) = RGB(0, 127, 102)

    ActiveWorkbook.Colors(40) = RGB(0, 146, 195)

    ActiveWorkbook.Colors(41) = RGB(153, 153, 153)

    ActiveWorkbook.Colors(42) = RGB(62, 171, 153)

    ActiveWorkbook.Colors(44) = RGB(17, 8, 72)

    ActiveWorkbook.Colors(45) = RGB(46, 78, 75)

    ActiveWorkbook.Colors(48) = RGB(0, 128, 128)

  ActiveWorkbook.Colors(49) = RGB(152, 245, 255)

    ActiveWorkbook.Colors(50) = RGB(255, 204, 153)

  ActiveWorkbook.Colors(51) = RGB(153, 255, 153)

  ActiveWorkbook.Colors(52) = RGB(255, 153, 255)

  ActiveWorkbook.Colors(53) = RGB(250, 128, 114)

  ActiveWorkbook.Colors(54) = RGB(0, 255, 142)

  ActiveWorkbook.Colors(55) = RGB(15, 0, 255)

  ActiveWorkbook.Colors(56) = RGB(204, 153, 255)

    ActiveWorkbook.Colors(35) = RGB(197, 255, 33)

    ActiveWorkbook.Colors(43) = RGB(255, 0, 0)

    ActiveWorkbook.Colors(17) = RGB(51, 204, 204)

    ActiveWorkbook.Colors(29) = RGB(102, 102, 255)

    ActiveWorkbook.Colors(30) = RGB(0, 204, 0)

    ActiveWorkbook.Colors(31) = RGB(128, 128, 128)

End Sub

Mvh
Judomads

Så skal den køres hver gang der åbnes en workbook. Man må da kunne sætte de generelle farver 1 gang for alle.

jeg har selv leget med nedenstående metode, men den har samme problematik som din:

Lave en makro, der åbner en farve-workbook og kopiere farverne over i den aktive workbook: ActiveWorkbook.Colors = Workbooks("Farver").Colors

Lav en workbook med de rigtige farver. Gem den som Book.xlt eller Mappe.xlt, hvis I kører dansk version af Excel. Placér den i XLSTART hos hver bruger.

Enkelt :-)

Og derudover har jeg lavet en lille knap, så farveskemaet også kan blive påført tidligere udarbejdede regneark:

Sub Hent_Farver()
Dim aktivWorkbook As String

On Error GoTo fejlh:
Application.ScreenUpdating = False



aktivWorkbook = ActiveWorkbook.Name
Workbooks.Open Filename:="I:\PROG\Modeller\Prod\Excel\Skabeloner\Farver.xls"

Workbooks(aktivWorkbook).Activate
ActiveWorkbook.Colors = Workbooks("Farver.xls").Colors
Workbooks("Farver.xls").Close False

Application.ScreenUpdating = True

Exit Sub
fejlh:
    MsgBox "Der er sket en fejl ved kopiering af farver. Kopieringen mislykkedes."
   
End Sub

-> word-hajen: Du må meget gerne ligge et svar, så du kan få nogle point :-)

Kommer her :-)