http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FExcel%2FChart_Lengend
VBA/Excel/Access/Word/Excel/Chart Lengend - История изменений
2026-04-07T07:05:07Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Excel/Chart_Lengend&diff=1560&oldid=prev
в 16:33, 26 мая 2010
2010-05-26T16:33:00Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Excel/Chart_Lengend&diff=1561&oldid=prev
Admin: 1 версия
2010-05-26T12:47:27Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Adding a Legend to the Chart==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub legend()<br />
Dim myChartObject As ChartObject<br />
Set myChartObject = ActiveSheet.ChartObjects.Add(Left:=200, Top:=200, _<br />
Width:=400, Height:=300)<br />
<br />
myChartObject.Chart.SetSourceData Source:= _<br />
ActiveWorkbook.Sheets("Chart Data").Range("A1:E5")<br />
<br />
myChartObject.SeriesCollection.Add Source:=ActiveSheet.Range("C4:K4"), Rowcol:=xlRows<br />
myChartObject.SeriesCollection.NewSeries<br />
With myChartObject.Legend<br />
.HasLegend = True<br />
.Font.Size = 16<br />
.Font.Name = "Arial"<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Set Lengend position and ChartArea Interior Color==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub FormattingCharts()<br />
Dim myChart As Chart<br />
Dim ws As Worksheet<br />
Dim ax As Axis<br />
Set ws = ThisWorkbook.Worksheets("Sheet1")<br />
Set myChart = GetChartByCaption(ws, "GDP")<br />
If Not myChart Is Nothing Then<br />
myChart.ChartArea.Interior.Color = vbWhite<br />
myChart.Legend.Position = xlLegendPositionBottom<br />
End If<br />
Set ax = Nothing<br />
Set myChart = Nothing<br />
Set ws = Nothing<br />
End Sub<br />
Function GetChartByCaption(ws As Worksheet, sCaption As String) As Chart<br />
Dim myChart As ChartObject<br />
Dim myChart As Chart<br />
Dim sTitle As String<br />
Set myChart = Nothing<br />
For Each myChart In ws.ChartObjects<br />
If myChart.Chart.HasTitle Then<br />
sTitle = myChart.Chart.ChartTitle.Caption<br />
If StrComp(sTitle, sCaption, vbTextCompare) = 0 Then<br />
Set myChart = myChart.Chart<br />
Exit For<br />
End If<br />
End If<br />
Next<br />
Set GetChartByCaption = myChart<br />
Set myChart = Nothing<br />
Set myChart = Nothing<br />
End Function<br />
</source></div>
Admin