This is the code:
'Hides columns used for Duration Curves and Table
Range("H:V").EntireColumn.Hidden = True
'Hides colums used for the KW Duration/PF Curves
Range("AX:BH").EntireColumn.Hidden = True
'Hides columns used for the x-y scatter plots
Range("BR:CI").EntireColumn.Hidden = True
'Hides columns used for the Minimum PF Chart and the KVAR .98/.90 charts
Range("DW:ET").EntireColumn.Hidden = True
The other strange part is the the last three columns are under the graphs
and they do not affect the charts at all when hide. Only the first one does
(Duration Curves and Tables). Also, I have set up so that the columns hide
first and then the charts move. I have no clue?
"Jon Peltier" wrote:
Bizarre. What's the code look like, that hides the columns?
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______
"playerbigdog" wrote in message
...
Hey thanks, i went in moved everything around.. the charts displayed
perfect...
Though in my program i am hiding certain columns. Where i have placed the
charts do not overlap the columns i am hiding and yet when i hide them, it
completely delets my charts (no where to be found) and when i dont hide
them,
the charts are there for all to see.. any suggestions?
"Jon Peltier" wrote:
Those are distances in pixels. Ignore the #, which is a throwback to an
ancient dialect of Basic.
When working with chart positions and sizes, I prefer to work with the
ChartObject, and to use absolute properties .Left, .Top, .Width, and
.Height
than relative properties like .IncrementLeft or .ScaleWidth.
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______
"playerbigdog" wrote in message
...
Sorry to double post but i was wondering what the third and fourth
lines
mean
(i.e what does the 866# and 300# mean)?
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Chart 2").IncrementLeft 866#
ActiveSheet.Shapes("Chart 2").IncrementTop 300#
"playerbigdog" wrote:
Hey, thanks.. those will help me out.. I appreciate the help boys...
"Jon Peltier" wrote:
You might try something like this
http://peltiertech.com/WordPress/200...rts-in-a-grid/
http://peltiertech.com/WordPress/200...rts-in-a-grid/
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______
"playerbigdog" wrote in
message
...
Yeah i think you are the right track. This program generates
approximately
50
diffent sheets which data for specific sities. While i run the
program, i
can
see charts being generated but after the program is done running
and
it
saves
to my drive; i can not find my cahrts when i open the sheet.
Each sheet generates 25 different charts that are in a certain
order
and
place. This is what by placing each in a specific place in teh
excel
sheet.
"Peter T" wrote:
Not sure what you mean by this
The program generates but after it moves the cahrts i
can not find them.
Do you mean code can no longer find the chart in future attempts,
ie
the
chart does not exist on the sheet, or you cannot visually locate
it.
What do you mean by "specific area". Following is a guess at what
you are
after
Sub test()
Dim cel As Range
Dim chtObj As ChartObject
Set chtObj = ActiveSheet.ChartObjects("Chart 1")
Set cel = Range("D4")
With cel
chtObj.Left = cel.Left
chtObj.Top = cel.Top
End With
End Sub
Regards,
Peter T
"playerbigdog" wrote in
message
...
How do you move a specific chart to specific area. Here is the
original
code
(done in 2003 format). The program generates but after it moves
the
cahrts
i
can not find them.
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Chart 2").IncrementLeft 866#
ActiveSheet.Shapes("Chart 2").IncrementTop 300#