Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
i have 5 charts in a sheet . i want to access this charts using index
number . need vba code to give desire index numbers to charts i.e i want to programmitically give index number to all charts . i want to assign the mentioned index numbers to those charts charts name index number charts 1 1 charts 2 2 charts 3 3 i have code which renames the charts present in the worksheet but the index number remains 1 for all charts . say if have 3 charts in a sheet i have to execute this below program thrice inorder to have index number 1 , 2 and 3 for the charts . Before running this program all the 3 charts had same index number and same chart name Sub Renamecharts() Dim chtobj As ChartObject Dim Msg As String Dim n As Integer n = ActiveSheet.ChartObjects.Count Msg = "Chart List for Sheet " & vbTab & ActiveSheet.Name & vbTab & "No charts = " & n & vbCrLf & vbCrLf Msg = Msg & "Name " & vbTab & vbTab & "Index" & vbCrLf i = 0 For Each chtobj In ActiveSheet.ChartObjects i = i + 1 chtobj.Activate chtobj.Name = "Charts" & i 'chtobj.Index= i ' '''''''''' i want to do something like this ''''''''''''''''''''''' Debug.Print chtobj.Name Msg = Msg & chtobj.Name & vbTab & vbTab & chtobj.Index & vbCrLf Next chtobj out = MsgBox(Msg, , "Chart List") End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
How do i give unique number in set of duplicate number? | Excel Discussion (Misc queries) | |||
how to give an automatic number | Excel Worksheet Functions | |||
Give multiple charts on a worksheet/workbook same header or footer | Excel Discussion (Misc queries) | |||
Give multiple charts on a worksheet/workbook same header or footer | Charts and Charting in Excel | |||
Minutes multiplied by a number to give a number | Excel Discussion (Misc queries) |