Блог

Главная - Вопросы по программированию - Excel VB — правильная диаграмма и форматирование

Excel VB — правильная диаграмма и форматирование

#excel #vba #bar-chart

#excel #vba #гистограмма

Вопрос:

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

Здесь есть два вопроса.

  1. Я хотел бы получить красочную версию диаграммы. Должен ли я использовать что-то другое, кроме xlBarClustered?
  2. Обратите внимание на надписи с левой стороны. Я бы хотел, чтобы они были в виде легенды, расположенной справа, но, похоже, моя легенда — это заголовок для столбца F.

У меня есть два изображения:

пример рабочего листа:одним из них является пример рабочего листа,

желаемая диаграмма: вторая - это диаграмма, которую я пытаюсь достичь.

Вот текущий код:

 Sub CreateChart()
'
' CreateChart Macro
' Creates a chart in one worksheet
' Want the range to start with E1, go to the right and down.
' first row  is a header row.

'
       
        
    Dim rng As Range
    Dim cht As Chart
    
    'Set cht = Sheets("Chart 1")
    'Set cht = ActiveChart
    
    Set cht = ActiveSheet.Shapes.AddChart2.Chart
    Set rng = ActiveSheet.Range("E1:F5")
   
    cht.SetSourceData Source:=rng
    cht.ChartType = xlBarClustered
    
    cht.Axes(xlValue, xlPrimary).HasTitle = True
    cht.Axes(xlValue, xlPrimary).AxisTitle.Text = "Percent"
    
    cht.HasTitle = True
    cht.ChartTitle.Text = Cells(2, 3).Value
    cht.ChartTitle.Font.Bold = True
    cht.ChartTitle.Font.Name = "Arial"
    
    cht.HasLegend = True
    cht.Legend.Position = xlLegendPositionRight
    
    
End Sub

Комментарии:

1. Изображения не удалось опубликовать. Есть ли у кого-нибудь какие-либо рекомендации о том, как я могу показать изображения?

2. Я хотел бы использовать это для создания диаграмм на многих рабочих листах. Я записал макрос, создающий версию диаграммы, которую я хотел бы создать. — Почему я не могу использовать «ActiveChart.», как записи макросов, в коде, который я опубликовал в первом сообщении? Если вы можете указать мне на отличный ресурс для быстрого изучения диаграмм в VB, это тоже было бы здорово. Я нашел кучу вещей, но в итоге просматриваю разные страницы почти для всего, что я ищу. Есть ли хороший единый источник информации о диаграмме.

Ответ №1:

Я считаю, что создание диаграммы без использования vba — это гораздо более быстрый и гибкий способ получить любую диаграмму, которую вы хотите, особенно если кто-то запрашивает изменения. https://support.microsoft.com/en-us/office/create-a-chart-from-start-to-finish-0baf399e-dd61-4e18-8a73-b3fd5d5680c2

Комментарии:

1. Я уверен, что вы правы, но это будет использоваться для сотен диаграмм, что было бы быстро сделать, если я смогу использовать этот код и повторить его для всех этих диаграмм.

Метки: