Leader Lines Object Example

Sub AddAndFormatLeaderLines() Dim oChart As Chart Dim oLeaderLines As LeaderLines

Set oChart = ActiveSheet.ChartObjects("Chart 1'

').Chart

'Apply labels and add leaderlines With oChart.SeriesCollection(1) .ApplyDataLabels .HasLeaderLines = True End With

'Target the leaderlines object

Set oLeaderLines = oChart.SeriesCollection(1).

LeaderLines

'Format the leaderlines With oLeaderLines

.Border.LineStyle = xlContinuous .Border.ColorIndex = 5 End With End Sub

Was this article helpful?

0 0
The Accidental Blogging Millionaires

The Accidental Blogging Millionaires

Get Inspired By The Most Popular Bloggers Online! If You Want To Skyrocket Your Success With Business And Improve Your Overall Life You Need To Have A Look At The Accidental Blogging Millionaires! Business can be a fight, particularly when you’re trying to establish one online and like all fights, to succeed you must find the winning techniques and apply them.

Get My Free Ebook


Post a comment