Do you still have access to a version of Excel with a working macro
recorder? If not, here's a recorded macro which I've documented slightly.
Don't forget to remove all Object.Select/Selection.Member in favor of the
shorter and more efficient Object.Member syntax.
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/25/2007 by Jon Peltier
'
''' Move and size chart
ActiveSheet.Shapes("Chart 1").ScaleWidth 0.81, msoFalse,
msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 1").ScaleHeight 0.86, msoFalse,
msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 1").IncrementLeft -105.75
ActiveSheet.Shapes("Chart 1").IncrementTop 50.25
''' Use these instead
With ActiveSheet.ChartObjects("Chart 1")
.Width = 350
.Height = 225
.Top = 175
.Left = 250
End With
''' Move and size plot area
ActiveChart.PlotArea.Select
Selection.Left = 18
Selection.Top = 29
Selection.Height = 179
Selection.Width = 366
''' Legend position
ActiveChart.Legend.Select
'' preset position:
Selection.Position = xlBottom
'' custom position:
Selection.Left = 273
Selection.Top = 171
''' Chart Title
ActiveChart.ChartTitle.Select
Selection.AutoScaleFont = True
With Selection.Font
.Name = "Arial"
.Size = 12
.FontStyle = "Bold"
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
Selection.Characters.Text = "Test Title"
End Sub
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. -
http://PeltierTech.com
_______
"BorisS" <(E-Mail Removed)> wrote in message
news:A445FCDC-C8EB-4376-A10C-(E-Mail Removed)...
> John, thanks so much. I was hoping to get the syntax for the others that
> I'd
> listed in the first message:
>
> chart title font
> legend placement
> chart size
>
> any chance you can help me out on those as well?
> --
> Boris
>
>
> "Jon Peltier" wrote:
>
>> This is the syntax:
>>
>> ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Font.Size = 10
>>
>> Though it should work anyway, because xlCategory and xlPrimary are both
>> equal to 1, and the second argument is optional.
>>
>> So to debug:
>> 1. Is there an active chart?
>> 2. Does it have a primary category axis?
>> 3. Does this axis have a title?
>>
>> - Jon
>> -------
>> Jon Peltier, Microsoft Excel MVP
>> Tutorials and Custom Solutions
>> Peltier Technical Services, Inc. - http://PeltierTech.com
>> _______
>>
>>
>>
>> "BorisS" <(E-Mail Removed)> wrote in message
>> news:86E7C98E-3D76-4F6B-9844-(E-Mail Removed)...
>> > Tom, I cannot find these in the help for the VBA. I tried to find
>> > specifically the title for an axis, and no luck. I am struggling with
>> > trial
>> > and error as well, having come up with
>> >
>> > ActiveChart.Axes(xlPrimary).AxisTitle.Font.Size = 10
>> >
>> > and having that be an error. Not sure how to write this stuff, so any
>> > help
>> > would be great.
>> > --
>> > Boris
>> >
>> >
>> > "Tom Ogilvy" wrote:
>> >
>> >> See John Peltier's web site:
>> >>
>> >> John Peltier
>> >> http://peltiertech.com/
>> >>
>> >> http://pubs.logicalexpressions.com/P...cle.asp?ID=209
>> >> Charting FAQs
>> >>
>> >> List of articles by Peltier
>> >> http://pubs.logicalexpressions.com/P...Search&AUTH=25
>> >>
>> >> Spend some time in the object browser in the VBE. Find an object,
>> >> click
>> >> on
>> >> it, hit F1 to get the help related to it.
>> >>
>> >> --
>> >> Regards,
>> >> Tom Ogilvy
>> >>
>> >>
>> >>
>> >> "BorisS" wrote:
>> >>
>> >> > with a given chart object select, what code do I need to do the
>> >> > following
>> >> > changes:
>> >> >
>> >> > chart title font
>> >> > primary axis title font
>> >> > legend placement
>> >> > chart size
>> >> >
>> >> > I am using '07, so recording these movements is not working
>> >> > (apparently
>> >> > a
>> >> > known issue).
>> >> > --
>> >> > Boris
>>
>>
>>
Similar Threads
