1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
LoopThroughAllShapes secundário () myShapes não ofuscantes como a forma Para o cada myShapes em ActiveSheet.Shapes Debug.Print myShapes.Name myShapes.Visible = o msoFalse 'ajustaram-se ao msoTrue ao unhide Em seguida Submarino da extremidade