eaddi
04-03-2013, 05:45 AM
Hello,
I am work with a spreadsheet and I am having difficulties with this code. I keep getting a runtime error at the .ParagraphFormat and .Font lines. I did not write this code, bu tI need help in understanding whats wrong.
ActiveSheet.ChartObjects("Chart 14").Activate
ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = MonthName(Month(CDate(Application.WorksheetFunction.EoMonth(Date, Plain(48))))) _
& " " & Year(Application.WorksheetFunction.EoMonth(Date, Plain(48))) _
& " FHLB Advance Composition"
Selection.Format.TextFrame2.TextRange.Characters.Text = _
MonthName(Month(CDate(Application.WorksheetFunction.EoMonth(Date, Plain(48))))) _
& " " & Year(Application.WorksheetFunction.EoMonth(Date, 0)) _
& " FHLB Advance Composition"
With Selection.Format.TextFrame2.TextRange.Characters(1, 43).ParagraphFormat
.TextDirection = msoTextDirectionLeftToRight
.Alignment = msoAlignCenter
End With
With Selection.Format.TextFrame2.TextRange.Characters(1, 40).Font
.BaselineOffset = 0
.Bold = msoTrue
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(0, 0, 0)
.Fill.Transparency = 0
.Fill.Solid
.Size = 13.8
.Italic = msoFalse
.Kerning = 12
.Name = "+mn-lt"
.UnderlineStyle = msoNoUnderline
.Strike = msoNoStrike
End With
I am work with a spreadsheet and I am having difficulties with this code. I keep getting a runtime error at the .ParagraphFormat and .Font lines. I did not write this code, bu tI need help in understanding whats wrong.
ActiveSheet.ChartObjects("Chart 14").Activate
ActiveChart.ChartTitle.Select
ActiveChart.ChartTitle.Text = MonthName(Month(CDate(Application.WorksheetFunction.EoMonth(Date, Plain(48))))) _
& " " & Year(Application.WorksheetFunction.EoMonth(Date, Plain(48))) _
& " FHLB Advance Composition"
Selection.Format.TextFrame2.TextRange.Characters.Text = _
MonthName(Month(CDate(Application.WorksheetFunction.EoMonth(Date, Plain(48))))) _
& " " & Year(Application.WorksheetFunction.EoMonth(Date, 0)) _
& " FHLB Advance Composition"
With Selection.Format.TextFrame2.TextRange.Characters(1, 43).ParagraphFormat
.TextDirection = msoTextDirectionLeftToRight
.Alignment = msoAlignCenter
End With
With Selection.Format.TextFrame2.TextRange.Characters(1, 40).Font
.BaselineOffset = 0
.Bold = msoTrue
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.RGB = RGB(0, 0, 0)
.Fill.Transparency = 0
.Fill.Solid
.Size = 13.8
.Italic = msoFalse
.Kerning = 12
.Name = "+mn-lt"
.UnderlineStyle = msoNoUnderline
.Strike = msoNoStrike
End With