font.TintAndShade 내가 텍스트를 선택하고 색상을 변경하려면 텍스트

Question

의 밝기를 변경할 수 없습니다 그것은 나에게이

Range("A7").Select 
With Selection.Font 
    .ThemeColor = xlThemeColorAccent2 
    .TintAndShade = -1 
End With 

을 알려줍니다하지만이 코드를 실행할 때 TintAndShade가 작동되지 않습니다. 셀에있는 텍스트의 밝기는 vba에서 지정할 수 없습니다. 텍스트의 밝기를 변경하는 다른 방법이 있습니까? 아니면 TintAndShade을 어떻게 만들 수 있습니까?

Answer 1

나는 여기에 대안 당신이 엑셀 2010을 사용하고이

엑셀 2013에서 정류 된 경우 불행하게도 엑셀 2010 확실하지에서 문제를 생각합니다. 새 통합 문서를 만들고이 코드를 모듈에 붙여 넣습니다.

논리 : 셀의 .Interior 따라서 우리가 셀의 글꼴 대신의 .TintAndShade를 사용하는 .TintAndShade 작동합니다.

코드 :

Sub Sample() 
    Dim ws As Worksheet 
    Dim i As Long 

    Set ws = ThisWorkbook.Sheets("Sheet1") 

    With ws 
     .Range("B1:B256").Value = "Blah Blah" 

     For i = 1 To 256 
      .Range("A" & i).Interior.ThemeColor = xlThemeColorAccent2 
      .Range("A" & i).Interior.TintAndShade = (i * 2 - 256)/256 

      .Range("B" & i).Font.Color = .Range("A" & i).Interior.Color 
     Next i 
    End With 
End Sub 

스크린 샷 : 아래의 스크린 샷과 같이

이 실행

, 당신은 글꼴의 밝기의 변화를 볼 수 있습니다. :)

주 : 실시간 시나리오의

는 임시 시트를 만들고 셀에, 한 번이 .Interior.TintAndShade의 설정하고 해당 셀의 글꼴의 밝기를 설정하는 것을 사용하고 간단히 임시 시트를 삭제하십시오.

Answer 2

또 다른 해결책은 .color 대신 .interior.TintSndShade을 사용하는 것입니다. 홈 탭과 글꼴 카테고리에서 원하는 색상과 색조를 Excel에서 찾으십시오. 그런 다음 셀의 글꼴 색을 원하는 색으로 변경하는 매크로를 기록하십시오. 그런 다음 "더 많은 색상 옵션"을 사용하고 어두운/밝은 막대를 위 또는 아래로 약간 미십시오. 이렇게하면 녹음 된 엑셀 매크로 .color 속성을 제공 할 것입니다.

Answer 3

나는이 또 다른 해결책을 발견, 어쩌면 조금 까다로운 ... 나는 필요한 글꼴 색상 있지만 텍스트가있는 셀을 만들어 나는 색상을 필요로하는 곳에이 셀을 복사합니다.

Dim texxt As String 
texxt = Range(N_Range).Value 
Range("R3").Copy 'this is my preset cell 
Range(N_Range).Select 
ActiveSheet.Paste 
Application.CutCopyMode = False 
ActiveCell.FormulaR1C1 = texxt