Windows'un renk paletini kullanmak.

[Orion1]

Arkadaşlar.Windows'un renk paletini açıp.Oradan seçtiğim bir rengi aktif hücreye nasıl atayabilirim.?
Teşekkür ederim.

 

[sece02]

Merhaba,
Sayın EvrenGizlen,
Bunu bir deneyin.
Windows renk paletini açtırmak ve seçilen rengin rgb değerlerini alarak uygulamalarınızda kullanmak istiyorsanız bu kod size göre. Bunu yapmak için ctrl+T tuşlarına basarak component ekleme menüsüne giriniz. Buradan "Microsoft common control dialog control 6.0" 'ı seçin. Sonra seçilen nesne toolbox da diğer nesnelerin altında gözükecektir. Bu nesneyi form üzerine koyunuz. Form üzerine bir de buton yerleştirip aşağıdaki kodu buton içerisine kopyalayınız. Butona basıldığında renk paleti açılacak ve seçilen rengin RGB değerleri sırasıyla R, G ve B değişkenlerine alınmış olacaktır. kolay gelsin.
Sevgi ve saygı ile dostçakalın.

Kod:
Dim RetMode As String
Dim C As Long
Dim R As Integer
Dim G As Integer
Dim B As Integer
Dim Out As String
RetMode = Left(UCase(Trim("d")), 1)
If RetMode <> "D" And RetMode <> "H" Then RetMode = "C"

With CommonDialog1
.Flags = cdlCCFullOpen + cdlCCRGBInit
' .Color = RGB(sc1.Value, sc2.Value, sc3.Value)
.ShowColor
C = .Color
End With

R = C And 255
G = Int(C / 256) And 255
B = Int(C / 65536) And 255

 

[Korhan Ayhan]

Selamlar,

Evren bey,

Aşağıdaki koduda kullanabilirsiniz. Hücrede çift tıklama ile renk paleti açılacaktır.

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Application.Dialogs(xlDialogPatterns).Show
End Sub

 

[izcik]

Selamlar,

Evren bey,

Aşağıdaki koduda kullanabilirsiniz. Hücrede çift tıklama ile renk paleti açılacaktır.

Option Explicit
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Application.Dialogs(xlDialogPatterns).Show
End Sub

..................


Değerli Korhan Ayhan bunu düğme haline mi getiriyoruz? Eğer öyleyse makronun adı kısmına ne yazmamız gerekiyor?

Çünkü şu adı komple yazınca kabul etmiyor:

Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 

[Korhan Ayhan]

Selamlar,

Sn. izcik,

Bu tarz kodlar adında geçen ifadeden de anlaşılacağı üzere sayfaya ait kodlardır. Modül içinde çalışmazlar. Konuyla ilgli aşağıdaki linki incelermisiniz.

Sayfaya Ait Kodlar ve Uygulama Yöntemleri (Resimli Anlatım)

 

[Orion1]

Sayın Korhan Ayhan ve sece02 teşekkür ederim.