사무실의 조합 버튼/드롭 다운

Question

사무실에 조합 버튼/드롭 다운을 추가하려면 어떻게해야합니까 (아래 참조). 코드를 사용하는 것이 바람직합니다.

업데이트 :이 어떤 도움이된다면이 코드는 필요하지 않습니다.

Answer 1

다음 액티브 X를 기반으로, 그것을 할 수있는 관리 :

• 마이크로 소프트 ImageList 컨트롤, 버전 6
• 마이크로 소프트 ImageComboBox 제어, 버전 6

수동 선택 "추가 컨트롤 ... [Control Toolbox] 메뉴 모음에서 언급 한 컨트롤을 두 번 클릭하여 시트에 가져옵니다. ComboBox를 원하는 곳에 배치하고 ImageList의 위치를 ​​무시하면 디자인 모드에서만 볼 수 있습니다. 지금까지 두 개의 내장 contros는 두 개의 구성 요소의 삽입은 참조로 ... \ system32를 \ MSCOMCTL32.OCX를 생성 ImageList1에

ImageCombo1

• 이름이있다.

  그럼 당신은

  1. 수동
  2. 수동으로 "ImageList1에"수동으로 True로 콤보의 자동로드 속성을 설정
  3. 에 콤보의의 ImageList 속성을 설정 이미지 목록에 아이콘 (GIF, BMP 등) 추가

  지금까지 오류가 있지만 아이콘이없는 콤보가 있습니다.

  는 그런 다음,이 코드

  Sub FillCombo() 
  Dim SH As Worksheet, OO As OLEObjects, Idx As Integer 
  
      Set SH = ActiveSheet 
      Set OO = SH.OLEObjects 
  
  
      With OO("ImageCombo1").Object 
       .ComboItems.Clear 
       For Idx = 1 To OO("ImageList1").Object.ListImages.Count 
        .ComboItems.Add , , , Idx 
       Next Idx 
      End With 
  
  End Sub 
  

  내가 VBA로 개체를 만드는 데 열심히 노력했습니다,하지만 ImageCombo가

  Set SH = ActiveSheet 
  Set OO = SH.OLEObjects 
  OO.Add "MSComctlLib.ImageComboCtl.2" 
  ' .... etc .... 
  

  콤보가 만들어

  로 만들 때 다른 행동을 보인다 실행 하지만 드롭 다운 화살표는 내가하는 일과 상관없이 표시되지 않지만 모든 디버거는 모든 ListView 요소가 깔끔하게 부착되어 있음을 보여줍니다. 많은 동료들이 ActiveX에 문제가있는 것으로 보이며, 인터넷에 많은 수의 게시가 있습니다.

  추가 읽기 here