Я собираюсь представить анкету Excel, которую я написал на доске, на бумаге или в виде слайдов. Он использует множество раскрывающихся списков, и поэтому я ищу какие-либо идеи о том, как можно показать варианты каждого ответа (из раскрывающихся списков), без необходимости вручную печатать экран несколько раз. и вставка результатов в Visio.

Кто-нибудь сталкивался с простым и быстрым способом сделать это?

1 ответ1

0

Я не думаю, что вы можете сделать это с помощью раскрывающихся списков Проверка данных. Есть ли шанс конвертировать выпадающие списки в элементы управления ActiveX?

Даже следующий фрагмент кода не работает:

Sub Foo()
    Range("C4").Select    'Assuming this is the cell containing the dropdown list
    Application.SendKeys "%{DOWN}", 1
    Range("C4:C10").CopyPicture Appearance:=xlScreen, Format:=xlPicture
    ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("D16")
End Foo

Это вызывает появление раскрывающегося списка, но методы CopyPicture копируют базовые ячейки, а не отображаемый раскрывающийся список.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .