MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
For Each t In ActiveSheet.ListObjects Set MyChtObj = ActiveSheet.ChartObjects.Add _ (Left:=100, Width:=400, Top:=75, Height:=200) With MyChtObj.Chart .SetSourceData Source:=Sheets("Sheet2").Range(t) .ChartType = xlBarClustered .HasLegend = False With .Axes(xlCategory) .MajorTickMark = xlNone .TickLabels.Font.Name = "Arial" .TickLabels.Font.Size = 9.5 End With .SeriesCollection(1).ApplyDataLabels With .SeriesCollection(1).DataLabels .Position = xlLabelPositionInsideEnd .Font.Color = RGB(255, 255, 255) .Font.Name = "Arial" .Font.Size = 9.5 End With With .Axes(xlValue) .MinimumScale = 0 .MaximumScale = 10 .Delete .MajorGridlines.Delete End With End With With MyChtObj.Chart .SetElement (msoElementChartTitleAboveChart) With .ChartTitle .Text = "=Sheet2!$B$6" .Font.Name = "Arial" .Font.Size = 12 End With End With With MyChtObj.Chart.Parent 'Change location so they're not on top of each other .Top = Range("A7").Top + i * (MyChtObj.Height + 80) .Left = Range("E7").Left .Name = "Chart" & i + 1 End With i = i + 1 Next End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|I need add rows to specific range of rows||9||43|
|modify formula for range changes||8||29|
|Create macro that is run through Task Scheduler and saves all open Excel spreadsheets?||14||27|
|need count any combinaton of 4 numbers||7||20|
Join the community of 500,000 technology professionals and ask your questions.