http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FExcel%2FChart_Title
VBA/Excel/Access/Word/Excel/Chart Title - История изменений
2026-04-07T05:39:17Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Excel/Chart_Title&diff=1516&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_Title&diff=1517&oldid=prev
Admin: 1 версия
2010-05-26T12:47:21Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Adding a Chart Title==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub chartTitle()<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 />
myChartObject.HasTitle = True<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Seaching for Charts Using the Chart Title==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<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 />
Sub TestGetChartByCaption()<br />
Dim myChart As Chart<br />
Dim ws As Worksheet<br />
Set ws = ThisWorkbook.Worksheets("Sheet1")<br />
Set myChart = GetChartByCaption(ws, "I am the Chart Title")<br />
If Not myChart Is Nothing Then<br />
Debug.Print "Found chart"<br />
Else<br />
Debug.Print "Sorry - chart not found"<br />
End If<br />
Set ws = Nothing<br />
Set myChart = Nothing<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==To change chart default title, set the Text property of the ChartTitle object, which represents the chart title==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub charTitleText()<br />
ActiveChart.ChartTitle.Text = "Industrial Disease in North Dakota"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==To format the text of the title, work with its Font object==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub format()<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 />
myChartObject.HasTitle = True<br />
<br />
myChartObject.ChartTitle.Font.Name = "Times"<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==To position the title, set its Top property (specifying the number of points from the top edge of the worksheet) and its Left property (specifying the number of points from the left edge of the worksheet)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub source()<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 />
myChartObject.HasTitle = True<br />
With myChartObject.ChartTitle<br />
.Top = 100<br />
.Left = 150<br />
End With<br />
End Sub<br />
</source></div>
Admin