एक त्वरित युक्ति: Excel पैलेट रंग जो शायद ही कभी इस्तेमाल किया जाता है और आम तौर पर अन्य लोगों के पत्रक पर कोई स्पष्ट परिवर्तन के बिना कस्टम मूल्यों के लिए सेट किया जा सकता की दो पंक्तियां हैं।
Public Sub SetPalePalette(Optional wbk As Excel.Workbook)
' This subroutine creates a custom palette of pale tones which you can use for controls, headings and dialogues
'
' ** THIS CODE IS IN THE PUBLIC DOMAIN **
' Nigel Heffernan http://Excellerando.Blogspot.com
' The Excel color palette has two hidden rows which are rarely used:
' Row 1: colors 17 to 24
' Row 2: colors 25 to 32 - USED BY SetGrayPalette in this workbook
'
' Code to capture existing Screen Updating settting and, if necessary,
' temporarily suspend updating while this procedure generates irritating
' flickers onscreen... and restore screen updating on exit if required.
Dim bScreenUpdating As Boolean
bScreenUpdating = Application.ScreenUpdating
If bScreenUpdating = True Then
Application.ScreenUpdating = False
End If
'If Application.ScreenUpdating <> bScreenUpdating Then
' Application.ScreenUpdating = bScreenUpdating
'End If
If wbk Is Nothing Then
Set wbk = ThisWorkbook
End If
With wbk
.Colors(17) = &HFFFFD0 ' pale cyan
.Colors(18) = &HD8FFD8 ' pale green.
.Colors(19) = &HD0FFFF ' pale yellow
.Colors(20) = &HC8E8FF ' pale orange
.Colors(21) = &HDBDBFF ' pale pink
.Colors(22) = &HFFE0FF ' pale magenta
.Colors(23) = &HFFE8E8 ' lavender
.Colors(24) = &HFFF0F0 ' paler lavender
अंत के साथ
तो Application.ScreenUpdating <> bScreenUpdating:
यहाँ 'नरम टोन' रंग है जो चूक की तुलना में कहीं कम आक्रामक हैं का एक उचित सेट बनाने के लिए कोड है फिर
आवेदन।ScreenUpdating = bScreenUpdating
अंत तो
End Sub
सार्वजनिक उप SetGreyPalette()
'यह सबरूटीन greyshades जो आप नियंत्रण, शीर्षकों के लिए उपयोग कर सकते हैं की एक कस्टम पैलेट और संवाद
बनाता है' ** यह कोड सार्वजनिक डोमेन **
'निगेल हेफेरनान http://Excellerando.Blogspot.com
' एक्सेल रंग पैलेट दो छिपा पंक्तियों जो शायद ही कभी इस्तेमाल किया जाता है है में है: 012,'पंक्ति 1: रंग 17 से 24' - इस कार्यपुस्तिका में SetPalePalette द्वारा प्रयुक्त
'पंक्ति 2: रंग 25 से 32
' कोड मौजूदा स्क्रीन अद्यतन कर रहा है settting और, यदि आवश्यक हो,
'अस्थायी रूप से अद्यतन करने को निलंबित करते हुए कब्जा करने के लिए प्रक्रिया परेशान
'फ्लिकर ऑनस्क्रीन उत्पन्न करती है ... बाहर निकलने पर स्क्रीन अपडेट को पुनर्स्थापित करना याद रखें!
मंद bScreenUpdating के रूप में बूलियन
bScreenUpdating = Application.ScreenUpdating
तो bScreenUpdating = सच तो
Application.ScreenUpdating = झूठी
अंत तो
'Application.ScreenUpdating < हैं> bScreenUpdating फिर
' आवेदन। स्क्रीन अपडेटिंग = बीस्क्रीन अपडेटिंग
'अंत अगर
ThisWorkbook
.Colors (25) = & HF0F0F0
.Colors (26) = & HE8E8E8
.Colors (27) = & HE0E0E0
.Colors (28) = & HD8D8D8
.Colors (29) = & HD0D0D0
के साथ। रंग (30) = & HC8C8C8
'& HC0C0C0' को छोड़ दिया गया & HC0C0C0 - यह मुख्य पैलेट में नियमित रूप से 25% ग्रे है
.Colors (31) = & HB8B8B8 'नोट कि अंतराल व्यापक हो रही है: मानव आँख अधिक है संवेदनशील
रंग (32) = & HA8A8A8 ' प्रकाश grays में बदलाव के लिए है, तो इस के साथ सीधे पैमाने
समाप्ति रूप में माना जा जाएगा
'एक्सेल डिफ़ॉल्ट पैलेट के दाएँ हाथ के कॉलम को निर्दिष्ट निम्नलिखित grays:
' रंग (56) = & H333333
'रंग (16) = & H808080
' रंग (48) = & H969696
'रंग (15) = & HC0C0C0' डिफ़ॉल्ट '25% ग्रे '
' यह रंग सुधार करने के लिए संशोधित किया जाना चाहिए 'की खाई 'और आसानी से रंगों को अलग-अलग बनाते हैं le:
ThisWorkbook
.Colors (56) = & H505050
.Colors (16) = & H707070
.Colors (48) = & H989898
'के साथ ।रंग (15) = के साथ
Application.ScreenUpdating < हैं> bScreenUpdating फिर
Application.ScreenUpdating = bScreenUpdating
अंत तो
End Sub
आप चुन सकते हैं & HC0C0C0 समाप्ति प्रत्येक कार्यपुस्तिका के ओपन() और पहले क्लोज़() ईवेंट के लिए 'कैप्चरकॉलर्स' और 'रीइंस्टेट कलर्स' फ़ंक्शन लिखने के लिए ... या प्रत्येक काम के लिए भी हीट सक्रिय है और घटना को निष्क्रिय कर देता है।
मेरे पास कोड कहीं भी झूठ बोल रहा है जो 3-डी चार्ट के लिए 'थर्मल' रंग ढाल बनाता है, जिससे आपको 'दो' चरणों में 'शीत' नीले से 'गर्म' लाल रंग की प्रगति मिलती है। यह आपके विचार से कठिन है: रंगों का ढाल जो मानव दृश्य प्रणाली द्वारा 'बराबर अंतराल' के रूप में माना जाएगा (जो तीव्रता के लॉगरिदमिक पैमाने पर चलता है और इसमें लाल, हरे और नीले रंग के 'मजबूत' रंगों के लिए nonlinear भारोत्तोलन होता है) निर्माण करने में समय लगता है - और आपको निर्दिष्ट आदेश में, आपके द्वारा निर्दिष्ट रंगों का उपयोग करने के लिए एमएस चार्ट को कॉरपोरेट करने के लिए वीबीए का उपयोग करना होगा।
आप * अपने रंगों के साथ पैलेट अपडेट कर सकते हैं, लेकिन आम तौर पर ऐसा करने से बचना चाहिए। एक समस्या यह है कि एक अलग पैलेट के साथ एक अलग कार्यपुस्तिका में प्रतिलिपि बनाना और पेस्ट करना आपको अलग-अलग रंग देगा। इस कारण से, डिफ़ॉल्ट पैलेट से चिपकना आमतौर पर बेहतर होता है। – Joe
मेरा मतलब इसके खिलाफ सुझाव देना था ... ओह, धन्यवाद जो। – LeppyR64