Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code mod to add name
This code puts a neat box on screen with the name of the
worksheet and a list of the charts - by name: Sub ListCharts() Dim msg As String Dim chtob As ChartObject msg = ActiveSheet.Name & vbCrLf For Each chtob In ActiveSheet.ChartObjects msg = msg & vbCrLf & chtob.Name Next MsgBox msg End Sub What modification would put the chart title after the chart name? Thanks,Phil |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code mod to add name
Phil,
Try msg = msg & vbCrLf & chtob.Name & " " & chtob.Chart.ChartTitle.Caption -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Phil Hageman" wrote in message ... This code puts a neat box on screen with the name of the worksheet and a list of the charts - by name: Sub ListCharts() Dim msg As String Dim chtob As ChartObject msg = ActiveSheet.Name & vbCrLf For Each chtob In ActiveSheet.ChartObjects msg = msg & vbCrLf & chtob.Name Next MsgBox msg End Sub What modification would put the chart title after the chart name? Thanks,Phil |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code mod to add name
For Each chtob In ActiveSheet.ChartObjects msg = msg & vbCrLf & _ chtob.Name & " : " & _ chtob.Chart.ChartTitle.Caption Next Patrick Molloy Microsoft Excel MVP -----Original Message----- This code puts a neat box on screen with the name of the worksheet and a list of the charts - by name: Sub ListCharts() Dim msg As String Dim chtob As ChartObject msg = ActiveSheet.Name & vbCrLf For Each chtob In ActiveSheet.ChartObjects msg = msg & vbCrLf & chtob.Name Next MsgBox msg End Sub What modification would put the chart title after the chart name? Thanks,Phil . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Thanks
Thanks, Chip - works great!
-----Original Message----- Phil, Try msg = msg & vbCrLf & chtob.Name & " " & chtob.Chart.ChartTitle.Caption -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Phil Hageman" wrote in message ... This code puts a neat box on screen with the name of the worksheet and a list of the charts - by name: Sub ListCharts() Dim msg As String Dim chtob As ChartObject msg = ActiveSheet.Name & vbCrLf For Each chtob In ActiveSheet.ChartObjects msg = msg & vbCrLf & chtob.Name Next MsgBox msg End Sub What modification would put the chart title after the chart name? Thanks,Phil . |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Thanks
Thanks, Patrick - yours and Chip's were nearly the same.
Appriciate your response. Phil -----Original Message----- For Each chtob In ActiveSheet.ChartObjects msg = msg & vbCrLf & _ chtob.Name & " : " & _ chtob.Chart.ChartTitle.Caption Next Patrick Molloy Microsoft Excel MVP -----Original Message----- This code puts a neat box on screen with the name of the worksheet and a list of the charts - by name: Sub ListCharts() Dim msg As String Dim chtob As ChartObject msg = ActiveSheet.Name & vbCrLf For Each chtob In ActiveSheet.ChartObjects msg = msg & vbCrLf & chtob.Name Next MsgBox msg End Sub What modification would put the chart title after the chart name? Thanks,Phil . . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
Code to conditional format all black after date specified in code? | Excel Discussion (Misc queries) | |||
Drop Down/List w/Code and Definition, only code entered when selec | Excel Worksheet Functions | |||
Convert a Number Code to a Text Code | Excel Discussion (Misc queries) | |||
copying vba code to a standard code module | Excel Discussion (Misc queries) |