워크 시트 확인란의 높이가 캡션에 충분한 지 확인하는 중

Question

캡션의 높이가 전체 캡션을 표시하는 데 충분한 지 알 수있는 방법이 있는지 알고 싶습니다. 예를 들어 위의 그림에서

, 모두 체크 박스는 동일한 텍스트했으나 왼쪽에 하나의 높이가 단순히 전체 캡션을 표시하기에 충분하지 않았다 있습니다. VBA로이를 확인하는 방법이 있습니까?

높이를 Feuil1.CheckBoxes("chbx_1").height으로 확인하고 Feuil1.CheckBoxes("chbx_1").caption 캡션을 변경할 수 있지만 캡션이 표시되고 있음을 알 수 없습니다.

참고; 이 ActiveX 확인란이 아니므로 하나를 사용하지 않으려합니다. 또한 양식을 사용하고 싶지 않습니다.

Answer 1

나는 고칠 수는 있지만, 확실히 보여줄 수있는 확실한 방법은 모르겠다.

워크 시트에서도 작동 할 수있는 UserForms에 구현 한 방법을 제안합니다. 이 방법은 사용 가능한 화면 공간을 최대화하기 위해 컨트롤의 동적 크기 조정을 필요로합니다.이 방법은 다양한 화면 크기와 Mac/PC 차이점을 처리 할 때 유용합니다.

은 콘텐츠에 대한 작업을 아래의 적응 고려 : - VBA를에 배치 된

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
If Sh.Name = "Feuil1" Then FormatForm 
End Sub 

Private Sub FormatForm() 
Dim WkSht As Worksheet 
Set WkSht = ThisWorkbook.Worksheets("Feuil1") 
    WkSht.CheckBoxes(1).Top = WkSht.Range("B2").Top 
    WkSht.CheckBoxes(1).Left = WkSht.Range("B2").Left 
    WkSht.CheckBoxes(1).Width = WkSht.Range("B2:C2").Width 
    WkSht.CheckBoxes(1).Height = WkSht.Range("B2:B3").Height 
Set WkSht = Nothing 
End Sub 

이

이 ThisWorkbook 프로젝트. 위의 예제에서 FormatForm이 호출되어 범위 B2:C3을 포함하도록 체크 상자의 크기를 조정하는 데 사용됩니다. 워크 시트가 무겁게 디자인 된 경우 화면 공간을 최대한 활용할 수있는 솔루션이 될 수 있습니다.