2017-02-02 14 views

ответ

0

Вы можете использовать выберите случай для отделов и использовать этот код -

синтаксис - SheetName .ChartObjects (chartname) .Chart.ChartType = номер ChartType

e.g. Sheet1.ChartObjects("Chart1").Chart.ChartType = 4 

, чтобы получить все числа, вы можете создать фиктивную диаграмму и напечатать номер с помощью msgbox - например MsgBox sheet1.ChartObjects ("Chart1) .Chart.ChartType

Позволь мне знать, если вам нужен мне, чтобы написать весь код для вас.

Надеется, что это помогает!

 Смежные вопросы

  • Нет связанных вопросов^_^