1. how do i delete graphs from worksheet


2. i create 2 graphs in one sheet - i need to move it to right side
used this code :

ActiveChart.ChartArea.Select
ActiveSheet.Shapes(ChartName).IncrementLeft 140.5
ActiveSheet.Shapes(ChartName).IncrementTop 100.25

but the problem is when i copy the excel file to a different compute
the location
is changing ... so how do i make it fit to all??

--
eli5
-----------------------------------------------------------------------
eli5m's Profile: http://www.excelforum.com/member.php...fo&userid=1475
View this thread: http://www.excelforum.com/showthread.php?threadid=26380

Try relating the chart's new position to the left and top
of the worksheet, like this:

ActiveChart.ChartArea.Select
ActiveSheet.Shapes(ChartName).Left = 300
ActiveSheet.Shapes(ChartName).Top = 200

Adjust these until the chart shows up where you want it.

You can also put the upper-left corner of the chart in a
certain cell like this:

ActiveChart.ChartArea.Select
ActiveSheet.Shapes(ChartName).Left = _
ActiveSheet.Range("J10").Left
ActiveSheet.Shapes(ChartName).Top = _
ActiveSheet.Range("J10").Top

tod


-----Original Message-----

1. how do i delete graphs from worksheet


2. i create 2 graphs in one sheet - i need to move it to
right side i
used this code :

ActiveChart.ChartArea.Select
ActiveSheet.Shapes(ChartName).IncrementLeft 140.5
ActiveSheet.Shapes(ChartName).IncrementTop 100.25

but the problem is when i copy the excel file to a
different computer
the location
is changing ... so how do i make it fit to all???


--
eli5m
---------------------------------------------------------
---------------
eli5m's Profile: http://www.excelforum.com/member.php?
action=getinfo&userid=14756
View this thread:
http://www.excelforum.com/showthread...hreadid=263803

.

Don't spend so much time selecting everything.

To get two charts side by side, try this:

With ActiveSheet
.ChartObjects(1).Left = 0
.ChartObjects(2).Left = .ChartObjects(1).Width
.ChartObjects(2).Top = .ChartObjects(1).Top
End With

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______


Tod wrote:

Try relating the chart's new position to the left and top
of the worksheet, like this:

ActiveChart.ChartArea.Select
ActiveSheet.Shapes(ChartName).Left = 300
ActiveSheet.Shapes(ChartName).Top = 200

Adjust these until the chart shows up where you want it.

You can also put the upper-left corner of the chart in a
certain cell like this:

ActiveChart.ChartArea.Select
ActiveSheet.Shapes(ChartName).Left = _
ActiveSheet.Range("J10").Left
ActiveSheet.Shapes(ChartName).Top = _
ActiveSheet.Range("J10").Top

tod



-----Original Message-----

1. how do i delete graphs from worksheet


2. i create 2 graphs in one sheet - i need to move it to

right side i

used this code :

ActiveChart.ChartArea.Select
ActiveSheet.Shapes(ChartName).IncrementLeft 140.5
ActiveSheet.Shapes(ChartName).IncrementTop 100.25

but the problem is when i copy the excel file to a

different computer

the location
is changing ... so how do i make it fit to all???


--
eli5m
---------------------------------------------------------

---------------

eli5m's Profile: http://www.excelforum.com/member.php?

action=getinfo&userid=14756

View this thread:

http://www.excelforum.com/showthread...hreadid=263803

.