About Us

Stanley[_2_]

Given the code below, does anyone have any suggestions on how to
obtain the active chart/chartobject's name so that I can address
Shape(name) properly when I try ot move the shape?

Code:

Sub LT(wbname As String, wsname As String)   ' Graphing Lifetime
Results
    Dim normalgraph As Chart                ' normal graph variable
    Dim regressgraph As Chart               ' regression graph
variable
    Dim twoGraphs As ChartObjects              'Chartobjects for
embedded charts

    Dim ngName As String                'normal graph name for moving
the chart
    Dim rgName As String                'regression graph name for
moving the chart

    Dim i As Long                           ' loop counter
    Dim colEnd As Long                         ' end of a column

    Workbooks(wbname).Sheets(wsname).Activate       'activate
worksheet of interest

    Let colEnd = Range("c2").End(xlDown).Row

    ' Select data range
    Range(Cells(2, 2), Cells(colEnd, 6)).Select

    ' insert new graph for showing Fuel cell voltage, flow,
temperature,
    ' and fuel cell current
    Set normalgraph = Charts.Add
    Set normalgraph = normalgraph.Location(whe=xlLocationAsObject,
Name:=wsname)
    ngName = normalgraph.Name

    'more code

Thanks!

brittonsm

How about this?

With .ActiveWorkbook
.Sheets("Sheet1").Select
.ActiveSheet.ChartObjects("Chart 1").Activate
.ActiveChart.ChartArea.Copy
End With

On Dec 21, 11:26*am, Stanley wrote:
Given the code below, does anyone have any suggestions on how to
obtain the active chart/chartobject's name so that I can address
Shape(name) properly when I try ot move the shape?

Code:

Sub LT(wbname As String, wsname As String) * ' Graphing Lifetime Results * * Dim normalgraph As Chart * * * * * * * *' normal graph variable * * Dim regressgraph As Chart * * * * * * * ' regression graph variable * * Dim twoGraphs As ChartObjects * * * * * * *'Chartobjects for embedded charts * * Dim ngName As String * * * * * * * *'normal graph name for moving the chart * * Dim rgName As String * * * * * * * *'regression graph name for moving the chart * * Dim i As Long * * * * * * * * * * * * * ' loop counter * * Dim colEnd As Long * * * * * * * * * * * * ' end of a column * * Workbooks(wbname).Sheets(wsname).Activate * * * 'activate worksheet of interest * * Let colEnd = Range("c2").End(xlDown).Row * * ' Select data range * * Range(Cells(2, 2), Cells(colEnd, 6)).Select * * ' insert new graph for showing Fuel cell voltage, flow, temperature, * * ' and fuel cell current * * Set normalgraph = Charts.Add * * Set normalgraph = normalgraph.Location(whe=xlLocationAsObject, Name:=wsname) * * ngName = normalgraph.Name * * 'more code

Thanks!

Stanley[_2_]

On Dec 21, 11:36 am, brittonsm wrote:
How about this?

With .ActiveWorkbook
.Sheets("Sheet1").Select
.ActiveSheet.ChartObjects("Chart 1").Activate
.ActiveChart.ChartArea.Copy
End With

On Dec 21, 11:26 am, Stanley wrote:

Given the code below, does anyone have any suggestions on how to
obtain the active chart/chartobject's name so that I can address
Shape(name) properly when I try ot move the shape?

Code:

Sub LT(wbname As String, wsname As String) ' Graphing Lifetime Results Dim normalgraph As Chart ' normal graph variable Dim regressgraph As Chart ' regression graph variable Dim twoGraphs As ChartObjects 'Chartobjects for embedded charts

Code:

Dim ngName As String 'normal graph name for moving the chart Dim rgName As String 'regression graph name for moving the chart Dim i As Long ' loop counter Dim colEnd As Long ' end of a column Workbooks(wbname).Sheets(wsname).Activate 'activate worksheet of interest Let colEnd = Range("c2").End(xlDown).Row ' Select data range Range(Cells(2, 2), Cells(colEnd, 6)).Select ' insert new graph for showing Fuel cell voltage, flow, temperature, ' and fuel cell current Set normalgraph = Charts.Add Set normalgraph = normalgraph.Location(whe=xlLocationAsObject, Name:=wsname) ngName = normalgraph.Name 'more code

Thanks!

The problem is that I don't know for certain the name inside the
chartobjects() identifier or shapes() identifier.

Peter T

after this line
ngName = normalgraph.Name
add
sChtObjName = normalgraph.Parent.Name

If all you want to do is move it with in the same routine as you created it,
simply

With normalgraph.Parent
..Left = 10
..Top = 20
' .width & .height if necessary
End With

However, no need to first add a chart sheet, add the chartobject to the
requisite sheet, sized to suit, eg

Sub test2()
Dim chtObj As ChartObject
Dim cht As Chart
Dim cell As Range

Set cell = ActiveSheet.Range("B3")

With cell
Set chtObj = ActiveSheet.ChartObjects.Add(.Left, .Top, 300, 200)
End With

Set cht = chtObj.Chart

With cht
' build the chart

End With

End Sub

Regards,
Peter T

"Stanley" wrote in message
...
Given the code below, does anyone have any suggestions on how to
obtain the active chart/chartobject's name so that I can address
Shape(name) properly when I try ot move the shape?

Code:

Sub LT(wbname As String, wsname As String) ' Graphing Lifetime Results Dim normalgraph As Chart ' normal graph variable Dim regressgraph As Chart ' regression graph variable Dim twoGraphs As ChartObjects 'Chartobjects for embedded charts Dim ngName As String 'normal graph name for moving the chart Dim rgName As String 'regression graph name for moving the chart Dim i As Long ' loop counter Dim colEnd As Long ' end of a column Workbooks(wbname).Sheets(wsname).Activate 'activate worksheet of interest Let colEnd = Range("c2").End(xlDown).Row ' Select data range Range(Cells(2, 2), Cells(colEnd, 6)).Select ' insert new graph for showing Fuel cell voltage, flow, temperature, ' and fuel cell current Set normalgraph = Charts.Add Set normalgraph = normalgraph.Location(whe=xlLocationAsObject, Name:=wsname) ngName = normalgraph.Name 'more code

Thanks!

Andy Pope

Hi,

Try this code,

'----------
Set normalgraph = Charts.Add
Set normalgraph = _
normalgraph.Location(whe=xlLocationAsObject, Name:=wsname)

With Worksheets(wsname)
Set normalgraph = .ChartObjects(.ChartObjects.Count).Chart
End With
ngName = normalgraph.Parent.Name
'----------

Cheers
Andy

Stanley wrote:
Given the code below, does anyone have any suggestions on how to
obtain the active chart/chartobject's name so that I can address
Shape(name) properly when I try ot move the shape?

Code:

Sub LT(wbname As String, wsname As String) ' Graphing Lifetime Results Dim normalgraph As Chart ' normal graph variable Dim regressgraph As Chart ' regression graph variable Dim twoGraphs As ChartObjects 'Chartobjects for embedded charts Dim ngName As String 'normal graph name for moving the chart Dim rgName As String 'regression graph name for moving the chart Dim i As Long ' loop counter Dim colEnd As Long ' end of a column Workbooks(wbname).Sheets(wsname).Activate 'activate worksheet of interest Let colEnd = Range("c2").End(xlDown).Row ' Select data range Range(Cells(2, 2), Cells(colEnd, 6)).Select ' insert new graph for showing Fuel cell voltage, flow, temperature, ' and fuel cell current Set normalgraph = Charts.Add Set normalgraph = normalgraph.Location(whe=xlLocationAsObject, Name:=wsname) ngName = normalgraph.Name 'more code

Thanks!

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
can't active chart	[email protected]	Charts and Charting in Excel	0	September 15th 07 07:05 PM
Chart & Active Sheet	Ardy	Excel Programming	2	February 9th 07 01:00 PM
active chart- please help	Rob	Charts and Charting in Excel	1	April 27th 05 03:08 AM
Dynamically chart active row	Patti	Charts and Charting in Excel	7	April 4th 05 03:39 PM
How to embed chart in active worksheet with VBA?	deko[_2_]	Excel Programming	9	March 4th 05 05:39 AM

Menu

About Us