Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro Error that I connot figure out
I am trying to teach myself VBA using Step by Step by Reed Jacobson.
There is a chapter on graphical objects, and in one macro he shows how to set up an "active map" forma generic state map Here is the macro: Sub MakeMapButtons() Dim s As Shape myNumber = 3 myName = "oregon" myCaption = "OR" myColor = 9 Set s = ActiveSheet.Shapes(1).GroupItems(myNumber) 's.Select s.Name = myName s.Fill.ForeColor.ObjectThemeColor = myColor s.ThreeD.BevelTopDepth = 6 s.TextFrame2.TextRange = myCaption s.TextFrame2.HorizontalAnchor = msoAnchorCenter s.TextFrame2.VerticalAnchor = msoAnchorMiddle s.TextFrame2.TextRange.Font.Size = 20 s.TextFrame2.TextRange.Font.Bold = msoTrue s.TextFrame2.TextRange.Font.Fill.ForeColor.ObjectT hemeColor = msoThemeColorLight1 s.Fill.OneColorGradient msoGradientHorizontal, 1, 0 s.TextFrame2.TextRange.Font.Reflection.Type = msoReflectionType5 s.Parent.Parent.Ungroup s.OnAction = ThisWorkbook.Name & "!StateButton" s.DrawingObject.ShapeRange.Regroup Everything works fine until the third line from the bottom: s.Parent.Parent.Ungroup I get an error message saying that the object does not support this property. I copied this program from his answer file and pasted it directly into the macro shell, so I know that I did not make a typing error, but it still hangs up. Any thoughts? |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Can't figure out formula error | Excel Programming | |||
Error I cannot figure out | Excel Programming | |||
wierd error I cannot figure out | Excel Programming | |||
error 400, i cant figure this out.. | Excel Programming | |||
Some Error that I can't figure out. | Excel Discussion (Misc queries) |