Ticklabes transparent in VBA??? help needed

[zehran]

Hey guys.

This is giving me a lot of problems, and have for sometime now. Searched the web for a solution but was not able to find one.
I recorded this macro, but vba will not play it.
I want to make the axis of one of my graphs transparent. (I have an another graph behind it)

The error that occurs is:

Run-time error '-2147467259 (80004005)':
Method 'TextFrame2' of object 'ChartFormat' failed

Here is the code(that I recorded):

ActiveSheet.ChartObjects("Diagram 3").Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue, xlSecondary).Select
With Selection.Format.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
ActiveChart.Axes(xlCategory).Select
With Selection.Format.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
With Selection.Format.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
End Sub

I really really hope you can help me, will appreciate it much

 

[pbornemeier]

.Transparency = 1 will make the text/fill invisible (100% transparent), you may want to try .Transparency = .75 to see if that shows what you want