When I use this code that I get from Excel VBA 2002 I get an error 1004.

Dim se as Series
Dim pts as Points
Dim pt as Point

Set se = ActiveChart.SeriesCollection(2)
se.HasDataLabels = True
Set pts =se.Points
For each pt in pts
pt.datalabel.posiotion = xlLOabelPositionAbove - error 1004 happens
here.
next pt

Does anyone have an idea as to what I am doing wrong.

hi
not sure but the code you posted has this

xlLOabelPositionAbove

that is misspelled. should be xlLabelPositionAbove.
did you know that?

regards
FSt1
"hturk" wrote:

When I use this code that I get from Excel VBA 2002 I get an error 1004.

Dim se as Series
Dim pts as Points
Dim pt as Point

Set se = ActiveChart.SeriesCollection(2)
se.HasDataLabels = True
Set pts =se.Points
For each pt in pts
pt.datalabel.posiotion = xlLOabelPositionAbove - error 1004 happens
here.
next pt

Does anyone have an idea as to what I am doing wrong.

Tje obvious answer is that you have two words misspelled.

pt.datalabel.position = xlLabelPositionAbove

--
Regards,
Tom Ogilvy

"hturk" wrote in message
...
When I use this code that I get from Excel VBA 2002 I get an error 1004.

Dim se as Series
Dim pts as Points
Dim pt as Point

Set se = ActiveChart.SeriesCollection(2)
se.HasDataLabels = True
Set pts =se.Points
For each pt in pts
pt.datalabel.posiotion = xlLOabelPositionAbove - error 1004 happens
here.
next pt

Does anyone have an idea as to what I am doing wrong.

You are probably trying to specify the position for a column chart type. That
constant (xlLabelPositionAbove) is valid for line graph but is not acceptable
for column chart type.

Alok

"hturk" wrote:

When I use this code that I get from Excel VBA 2002 I get an error 1004.

Dim se as Series
Dim pts as Points
Dim pt as Point

Set se = ActiveChart.SeriesCollection(2)
se.HasDataLabels = True
Set pts =se.Points
For each pt in pts
pt.datalabel.posiotion = xlLOabelPositionAbove - error 1004 happens
here.
next pt

Does anyone have an idea as to what I am doing wrong.

You are correct. What would I need to do to position the datalabels above
each point for the columns.

Harry

"Alok" wrote:

You are probably trying to specify the position for a column chart type. That
constant (xlLabelPositionAbove) is valid for line graph but is not acceptable
for column chart type.

Alok

"hturk" wrote:

When I use this code that I get from Excel VBA 2002 I get an error 1004.

Dim se as Series
Dim pts as Points
Dim pt as Point

Set se = ActiveChart.SeriesCollection(2)
se.HasDataLabels = True
Set pts =se.Points
For each pt in pts
pt.datalabel.posiotion = xlLOabelPositionAbove - error 1004 happens
here.
next pt

Does anyone have an idea as to what I am doing wrong.

I made a typo when posting this code. But my actual codes is correct.

"Tom Ogilvy" wrote:

Tje obvious answer is that you have two words misspelled.

pt.datalabel.position = xlLabelPositionAbove

--
Regards,
Tom Ogilvy

"hturk" wrote in message
...
When I use this code that I get from Excel VBA 2002 I get an error 1004.

Dim se as Series
Dim pts as Points
Dim pt as Point

Set se = ActiveChart.SeriesCollection(2)
se.HasDataLabels = True
Set pts =se.Points
For each pt in pts
pt.datalabel.posiotion = xlLOabelPositionAbove - error 1004 happens
here.
next pt

Does anyone have an idea as to what I am doing wrong.

Harry

Try the constant xlLabelPositionInsideEnd

Alok

"hturk" wrote:

You are correct. What would I need to do to position the datalabels above
each point for the columns.

Harry

"Alok" wrote:

You are probably trying to specify the position for a column chart type. That
constant (xlLabelPositionAbove) is valid for line graph but is not acceptable
for column chart type.

Alok

"hturk" wrote:

When I use this code that I get from Excel VBA 2002 I get an error 1004.

Dim se as Series
Dim pts as Points
Dim pt as Point

Set se = ActiveChart.SeriesCollection(2)
se.HasDataLabels = True
Set pts =se.Points
For each pt in pts
pt.datalabel.posiotion = xlLOabelPositionAbove - error 1004 happens
here.
next pt

Does anyone have an idea as to what I am doing wrong.

Alok

Thanks I will try tommorrow morning and I will let you know how it went.

How can I found out which constants apply to which charts.

Thank You Very Much
Harry

"Alok" wrote:

Harry

Try the constant xlLabelPositionInsideEnd

Alok

"hturk" wrote:

You are correct. What would I need to do to position the datalabels above
each point for the columns.

Harry

"Alok" wrote:

You are probably trying to specify the position for a column chart type. That
constant (xlLabelPositionAbove) is valid for line graph but is not acceptable
for column chart type.

Alok

"hturk" wrote:

When I use this code that I get from Excel VBA 2002 I get an error 1004.

Dim se as Series
Dim pts as Points
Dim pt as Point

Set se = ActiveChart.SeriesCollection(2)
se.HasDataLabels = True
Set pts =se.Points
For each pt in pts
pt.datalabel.posiotion = xlLOabelPositionAbove - error 1004 happens
here.
next pt

Does anyone have an idea as to what I am doing wrong.

"hturk" wrote in message
...
How can I found out which constants apply to which charts.

Hi Harry,

Download and install my XY Chart Labeler utility from the web site below
my signature. Once installed, open Excel, go into the Visual Basic Editor,
locate the XYChartLabeler project in the Project Window and set the IsAddIn
property of its ThisWorkbook object to False.

The top table on the worksheet that you can now see back in the Excel
user interface provides a complete list of which label position constants
can be used with which chart types.

--
Rob Bovey, Excel MVP
Application Professionals
http://www.appspro.com/

* Take your Excel development skills to the next level.
* Professional Excel Development
http://www.appspro.com/Books/Books.htm


"Alok" wrote:

Harry

Try the constant xlLabelPositionInsideEnd

Alok

"hturk" wrote:

You are correct. What would I need to do to position the datalabels
above
each point for the columns.

Harry

"Alok" wrote:

You are probably trying to specify the position for a column chart
type. That
constant (xlLabelPositionAbove) is valid for line graph but is not
acceptable
for column chart type.

Alok

"hturk" wrote:

When I use this code that I get from Excel VBA 2002 I get an error
1004.

Dim se as Series
Dim pts as Points
Dim pt as Point

Set se = ActiveChart.SeriesCollection(2)
se.HasDataLabels = True
Set pts =se.Points
For each pt in pts
pt.datalabel.posiotion = xlLOabelPositionAbove - error 1004
happens
here.
next pt

Does anyone have an idea as to what I am doing wrong.

Rob

Thank You very much. I loaded the XY Chart Labeler Utility and I can now
see the labels that are associated with each chart. Is the utility specific
to a single workbook or all workbooks that I open. The reason for the
question is that I create charts and pivot tables from an Access Database
through VBA automation code and I noticed that the Utility is not available
when excel is opened from within Access.

"Rob Bovey" wrote:

"hturk" wrote in message
...
How can I found out which constants apply to which charts.

Hi Harry,

Download and install my XY Chart Labeler utility from the web site below
my signature. Once installed, open Excel, go into the Visual Basic Editor,
locate the XYChartLabeler project in the Project Window and set the IsAddIn
property of its ThisWorkbook object to False.

The top table on the worksheet that you can now see back in the Excel
user interface provides a complete list of which label position constants
can be used with which chart types.

--
Rob Bovey, Excel MVP
Application Professionals
http://www.appspro.com/

* Take your Excel development skills to the next level.
* Professional Excel Development
http://www.appspro.com/Books/Books.htm


"Alok" wrote:

Harry

Try the constant xlLabelPositionInsideEnd

Alok

"hturk" wrote:

You are correct. What would I need to do to position the datalabels
above
each point for the columns.

Harry

"Alok" wrote:

You are probably trying to specify the position for a column chart
type. That
constant (xlLabelPositionAbove) is valid for line graph but is not
acceptable
for column chart type.

Alok

"hturk" wrote:

When I use this code that I get from Excel VBA 2002 I get an error
1004.

Dim se as Series
Dim pts as Points
Dim pt as Point

Set se = ActiveChart.SeriesCollection(2)
se.HasDataLabels = True
Set pts =se.Points
For each pt in pts
pt.datalabel.posiotion = xlLOabelPositionAbove - error 1004
happens
here.
next pt

Does anyone have an idea as to what I am doing wrong.

"hturk" wrote in message
...
Thank You very much. I loaded the XY Chart Labeler Utility and I can now
see the labels that are associated with each chart. Is the utility
specific
to a single workbook or all workbooks that I open. The reason for the
question is that I create charts and pivot tables from an Access Database
through VBA automation code and I noticed that the Utility is not
available
when excel is opened from within Access.

Hi Harry,

The chart labeler will operate on any workbook open in the same instance
of Excel. You don't see it when you open Excel via automation because Excel
doesn't load any add-ins when opened that way. You can load the chart
labeler after you start Excel with:

xlApp.AddIns("XY Chart Labeler 6.24").Installed = True

Where xlApp is an object variable referencing the instance of the Excel
application you've started via automation.

There's no way to call the chart labeler from VBA in the current
version, so you'll have to run it manually from the Excel UI. The chart
labeler also only works on Excel charts. It can't label charts created using
MSGraph.

--
Rob Bovey, Excel MVP
Application Professionals
http://www.appspro.com/

* Take your Excel development skills to the next level.
* Professional Excel Development
http://www.appspro.com/Books/Books.htm

when you open Excel using OLE Automation, addins are not loaded
automatically as they would be if opened manually. You would need to load
the addin explicitely in your code.

--
Regards,
Tom Ogilvy

"hturk" wrote in message
...
Rob

Thank You very much. I loaded the XY Chart Labeler Utility and I can now
see the labels that are associated with each chart. Is the utility
specific
to a single workbook or all workbooks that I open. The reason for the
question is that I create charts and pivot tables from an Access Database
through VBA automation code and I noticed that the Utility is not
available
when excel is opened from within Access.

"Rob Bovey" wrote:

"hturk" wrote in message
...
How can I found out which constants apply to which charts.

Hi Harry,

Download and install my XY Chart Labeler utility from the web site
below
my signature. Once installed, open Excel, go into the Visual Basic
Editor,
locate the XYChartLabeler project in the Project Window and set the
IsAddIn
property of its ThisWorkbook object to False.

The top table on the worksheet that you can now see back in the
Excel
user interface provides a complete list of which label position
constants
can be used with which chart types.

--
Rob Bovey, Excel MVP
Application Professionals
http://www.appspro.com/

* Take your Excel development skills to the next level.
* Professional Excel Development
http://www.appspro.com/Books/Books.htm


"Alok" wrote:

Harry

Try the constant xlLabelPositionInsideEnd

Alok

"hturk" wrote:

You are correct. What would I need to do to position the
datalabels
above
each point for the columns.

Harry

"Alok" wrote:

You are probably trying to specify the position for a column
chart
type. That
constant (xlLabelPositionAbove) is valid for line graph but is
not
acceptable
for column chart type.

Alok

"hturk" wrote:

When I use this code that I get from Excel VBA 2002 I get an
error
1004.

Dim se as Series
Dim pts as Points
Dim pt as Point

Set se = ActiveChart.SeriesCollection(2)
se.HasDataLabels = True
Set pts =se.Points
For each pt in pts
pt.datalabel.posiotion = xlLOabelPositionAbove - error
1004
happens
here.
next pt

Does anyone have an idea as to what I am doing wrong.

It worked fine thank you very Much

Harry

"hturk" wrote:

Alok

Thanks I will try tommorrow morning and I will let you know how it went.

How can I found out which constants apply to which charts.

Thank You Very Much
Harry

"Alok" wrote:

Harry

Try the constant xlLabelPositionInsideEnd

Alok

"hturk" wrote:

You are correct. What would I need to do to position the datalabels above
each point for the columns.

Harry

"Alok" wrote:

You are probably trying to specify the position for a column chart type. That
constant (xlLabelPositionAbove) is valid for line graph but is not acceptable
for column chart type.

Alok

"hturk" wrote:

When I use this code that I get from Excel VBA 2002 I get an error 1004.

Dim se as Series
Dim pts as Points
Dim pt as Point

Set se = ActiveChart.SeriesCollection(2)
se.HasDataLabels = True
Set pts =se.Points
For each pt in pts
pt.datalabel.posiotion = xlLOabelPositionAbove - error 1004 happens
here.
next pt

Does anyone have an idea as to what I am doing wrong.

Thank You very Much Rob I will try the code on Monday when I get to work.
I will let you know how it went.

Harry


"Rob Bovey" wrote:

"hturk" wrote in message
...
Thank You very much. I loaded the XY Chart Labeler Utility and I can now
see the labels that are associated with each chart. Is the utility
specific
to a single workbook or all workbooks that I open. The reason for the
question is that I create charts and pivot tables from an Access Database
through VBA automation code and I noticed that the Utility is not
available
when excel is opened from within Access.

Hi Harry,

The chart labeler will operate on any workbook open in the same instance
of Excel. You don't see it when you open Excel via automation because Excel
doesn't load any add-ins when opened that way. You can load the chart
labeler after you start Excel with:

xlApp.AddIns("XY Chart Labeler 6.24").Installed = True

Where xlApp is an object variable referencing the instance of the Excel
application you've started via automation.

There's no way to call the chart labeler from VBA in the current
version, so you'll have to run it manually from the Excel UI. The chart
labeler also only works on Excel charts. It can't label charts created using
MSGraph.

--
Rob Bovey, Excel MVP
Application Professionals
http://www.appspro.com/

* Take your Excel development skills to the next level.
* Professional Excel Development
http://www.appspro.com/Books/Books.htm

Thanks Tom

I reaaly appreciate your help as well as everyone else who has helped me
tremendously.

"Tom Ogilvy" wrote:

when you open Excel using OLE Automation, addins are not loaded
automatically as they would be if opened manually. You would need to load
the addin explicitely in your code.

--
Regards,
Tom Ogilvy

"hturk" wrote in message
...
Rob

Thank You very much. I loaded the XY Chart Labeler Utility and I can now
see the labels that are associated with each chart. Is the utility
specific
to a single workbook or all workbooks that I open. The reason for the
question is that I create charts and pivot tables from an Access Database
through VBA automation code and I noticed that the Utility is not
available
when excel is opened from within Access.

"Rob Bovey" wrote:

"hturk" wrote in message
...
How can I found out which constants apply to which charts.

Hi Harry,

Download and install my XY Chart Labeler utility from the web site
below
my signature. Once installed, open Excel, go into the Visual Basic
Editor,
locate the XYChartLabeler project in the Project Window and set the
IsAddIn
property of its ThisWorkbook object to False.

The top table on the worksheet that you can now see back in the
Excel
user interface provides a complete list of which label position
constants
can be used with which chart types.

--
Rob Bovey, Excel MVP
Application Professionals
http://www.appspro.com/

* Take your Excel development skills to the next level.
* Professional Excel Development
http://www.appspro.com/Books/Books.htm


"Alok" wrote:

Harry

Try the constant xlLabelPositionInsideEnd

Alok

"hturk" wrote:

You are correct. What would I need to do to position the
datalabels
above
each point for the columns.

Harry

"Alok" wrote:

You are probably trying to specify the position for a column
chart
type. That
constant (xlLabelPositionAbove) is valid for line graph but is
not
acceptable
for column chart type.

Alok

"hturk" wrote:

When I use this code that I get from Excel VBA 2002 I get an
error
1004.

Dim se as Series
Dim pts as Points
Dim pt as Point

Set se = ActiveChart.SeriesCollection(2)
se.HasDataLabels = True
Set pts =se.Points
For each pt in pts
pt.datalabel.posiotion = xlLOabelPositionAbove - error
1004
happens
here.
next pt

Does anyone have an idea as to what I am doing wrong.

Once again thank you so much for the tremendous help.

Harry

"Rob Bovey" wrote:

"hturk" wrote in message
...
Thank You very much. I loaded the XY Chart Labeler Utility and I can now
see the labels that are associated with each chart. Is the utility
specific
to a single workbook or all workbooks that I open. The reason for the
question is that I create charts and pivot tables from an Access Database
through VBA automation code and I noticed that the Utility is not
available
when excel is opened from within Access.

Hi Harry,

The chart labeler will operate on any workbook open in the same instance
of Excel. You don't see it when you open Excel via automation because Excel
doesn't load any add-ins when opened that way. You can load the chart
labeler after you start Excel with:

xlApp.AddIns("XY Chart Labeler 6.24").Installed = True

Where xlApp is an object variable referencing the instance of the Excel
application you've started via automation.

There's no way to call the chart labeler from VBA in the current
version, so you'll have to run it manually from the Excel UI. The chart
labeler also only works on Excel charts. It can't label charts created using
MSGraph.

--
Rob Bovey, Excel MVP
Application Professionals
http://www.appspro.com/

* Take your Excel development skills to the next level.
* Professional Excel Development
http://www.appspro.com/Books/Books.htm

Rob I did not realize that you are one of the authors of a book I purchased a
couple of months ago. Professional Excel Development is a great book and I
learned alot. Thank you for a great book.

Harry

"Rob Bovey" wrote:

"hturk" wrote in message
...
Thank You very much. I loaded the XY Chart Labeler Utility and I can now
see the labels that are associated with each chart. Is the utility
specific
to a single workbook or all workbooks that I open. The reason for the
question is that I create charts and pivot tables from an Access Database
through VBA automation code and I noticed that the Utility is not
available
when excel is opened from within Access.

Hi Harry,

The chart labeler will operate on any workbook open in the same instance
of Excel. You don't see it when you open Excel via automation because Excel
doesn't load any add-ins when opened that way. You can load the chart
labeler after you start Excel with:

xlApp.AddIns("XY Chart Labeler 6.24").Installed = True

Where xlApp is an object variable referencing the instance of the Excel
application you've started via automation.

There's no way to call the chart labeler from VBA in the current
version, so you'll have to run it manually from the Excel UI. The chart
labeler also only works on Excel charts. It can't label charts created using
MSGraph.

--
Rob Bovey, Excel MVP
Application Professionals
http://www.appspro.com/

* Take your Excel development skills to the next level.
* Professional Excel Development
http://www.appspro.com/Books/Books.htm

Once again thank you very much for the tremendous help

Harry

"hturk" wrote:

Alok

Thanks I will try tommorrow morning and I will let you know how it went.

How can I found out which constants apply to which charts.

Thank You Very Much
Harry

"Alok" wrote:

Harry

Try the constant xlLabelPositionInsideEnd

Alok

"hturk" wrote:

You are correct. What would I need to do to position the datalabels above
each point for the columns.

Harry

"Alok" wrote:

You are probably trying to specify the position for a column chart type. That
constant (xlLabelPositionAbove) is valid for line graph but is not acceptable
for column chart type.

Alok

"hturk" wrote:

When I use this code that I get from Excel VBA 2002 I get an error 1004.

Dim se as Series
Dim pts as Points
Dim pt as Point

Set se = ActiveChart.SeriesCollection(2)
se.HasDataLabels = True
Set pts =se.Points
For each pt in pts
pt.datalabel.posiotion = xlLOabelPositionAbove - error 1004 happens
here.
next pt

Does anyone have an idea as to what I am doing wrong.

"hturk" wrote in message
...
Rob I did not realize that you are one of the authors of a book I
purchased a
couple of months ago. Professional Excel Development is a great book and
I
learned alot. Thank you for a great book.

Hi Harry,

Glad you liked it, thanks for letting me know.

--
Rob Bovey, Excel MVP
Application Professionals
http://www.appspro.com/

* Take your Excel development skills to the next level.
* Professional Excel Development
http://www.appspro.com/Books/Books.htm