Varolan bir çalışma sayfasındaki Belirli Hücrelere Sütun Grafiği Yerleştirme VB

Question

Varolan bir çalışma sayfasında belirli bir hücre aralığına sütun grafiği yerleştirmede sorun yaşıyorum. Birisi tavsiyesi var mı? Ayrıca veri etiketlerini çubukların üstüne nasıl görüntülerim? Ayrıca, bir parça için bir efsaneyi nasıl yeniden boyutlandırabilirim? Şimdiden teşekkür ederim!

  Dim data As Worksheet 
      Dim colChart As Chart 

    Set data = ActiveWorkbook.Worksheets("Data") 'have charts in data ws 
    Set colChart = data.Shapes.AddChart.Chart ' set col chart 
    Set pieChart = data.Shapes.AddChart.Chart 'set pie chart 

    With colChart 
    .HasLegend = False 'no legend 
    .ChartType = xlColumnClustered 'clustered column 
    .SetSourceData Source:=Sheets("Data").Range("E2:E7"), PlotBy:=xlColumns 
    .HasTitle = True 
    .ChartTitle.Text = "Statictics on 50,000 Dice" 'title 
    .Axes(xlCategory, xlPrimary).HasTitle = True ' axis title 
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Dice Face" 
    .Axes(xlValue, xlPrimary).HasTitle = True 'axis title 
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Counts" 

    End With 

Answer 1

İstediğiniz şeyi el ile yaparak bir makroyu kaydetmeyi deneyin. Excel, istemediğiniz bazı kodları kaydeder, sadece silin. Kaydedilen makro sorularınızı cevaplamalıdır.