Dim shp As Shape, Osp As String, c
For Each shp In ActiveSheet.Shapes
Select Case shp.AutoShapeType
Case Is = msoShape24pointStar: Osp = "msoShape24pointStar"
Case Is = msoShape4pointStar: Osp = "msoShape4pointStar"
Case Is = msoShape8pointStar: Osp = "msoShape8pointStar"
Case Is = msoShapeActionButtonBeginning: Osp = "msoShapeActionButtonBeginning"
Case Is = msoShapeActionButtonDocument: Osp = "msoShapeActionButtonDocument"
Case Is = msoShapeActionButtonForwardorNext: Osp = "msoShapeActionButtonForwardorNext"
Case Is = msoShapeActionButtonHome: Osp = "msoShapeActionButtonHome"
Case Is = msoShapeActionButtonMovie: Osp = "msoShapeActionButtonMovie"
Case Is = msoShapeActionButtonSound: Osp = "msoShapeActionButtonSound"
Case Is = msoShapeBalloon: Osp = "msoShapeBalloon"
Case Is = msoShapeBentUpArrow: Osp = "msoShapeBentUpArrow"
Case Is = msoShapeBlockArc: Osp = "msoShapeBlockArc"
Case Is = msoShapeChevron: Osp = "msoShapeChevron"
Case Is = msoShapeCloudCallout: Osp = "msoShapeCloudCallout"
Case Is = msoShapeCube: Osp = "msoShapeCube"
Case Is = msoShapeCurvedDownRibbon: Osp = "msoShapeCurvedDownRibbon"
Case Is = msoShapeCurvedRightArrow: Osp = "msoShapeCurvedRightArrow"
Case Is = msoShapeCurvedUpRibbon: Osp = "msoShapeCurvedUpRibbon"
Case Is = msoShapeDonut: Osp = "msoShapeDonut"
Case Is = msoShapeDoubleBracket: Osp = "msoShapeDoubleBracket"
Case Is = msoShapeDownArrow: Osp = "msoShapeDownArrow"
Case Is = msoShapeDownRibbon: Osp = "msoShapeDownRibbon"
Case Is = msoShapeExplosion2: Osp = "msoShapeExplosion2"
Case Is = msoShapeFlowchartCard: Osp = "msoShapeFlowchartCard"
Case Is = msoShapeFlowchartConnector: Osp = "msoShapeFlowchartConnector"
Case Is = msoShapeFlowchartDecision: Osp = "msoShapeFlowchartDecision"
Case Is = msoShapeFlowchartDirectAccessStorage: Osp = "msoShapeFlowchartDirectAccessStorage"
Case Is = msoShapeFlowchartDisplay: Osp = "msoShapeFlowchartDisplay"
Case Is = msoShapeFlowchartDocument: Osp = "msoShapeFlowchartDocument"
Case Is = msoShapeFlowchartExtract: Osp = "msoShapeFlowchartExtract"
Case Is = msoShapeFlowchartInternalStorage: Osp = "msoShapeFlowchartInternalStorage"
Case Is = msoShapeFlowchartMagneticDisk: Osp = "msoShapeFlowchartMagneticDisk"
Case Is = msoShapeFlowchartManualInput: Osp = "msoShapeFlowchartManualInput"
Case Is = msoShapeFlowchartManualOperation: Osp = "msoShapeFlowchartManualOperation"
Case Is = msoShapeFlowchartMerge: Osp = "msoShapeFlowchartMerge"
Case Is = msoShapeFlowchartMultidocument: Osp = "msoShapeFlowchartMultidocument"
Case Is = msoShapeFlowchartOffpageConnector: Osp = "msoShapeFlowchartOffpageConnector"
Case Is = msoShapeFlowchartOr: Osp = "msoShapeFlowchartOr"
Case Is = msoShapeFlowchartPredefinedProcess: Osp = "msoShapeFlowchartPredefinedProcess"
Case Is = msoShapeFlowchartPreparation: Osp = "msoShapeFlowchartPreparation"
Case Is = msoShapeFlowchartProcess: Osp = "msoShapeFlowchartProcess"
Case Is = msoShapeFlowchartPunchedTape: Osp = "msoShapeFlowchartPunchedTape"
Case Is = msoShapeFlowchartSequentialAccessStorage: Osp = "msoShapeFlowchartSequentialAccessStorage"
Case Is = msoShapeFlowchartSort: Osp = "msoShapeFlowchartSort"
Case Is = msoShapeFlowchartStoredData: Osp = "msoShapeFlowchartStoredData"
Case Is = msoShapeFlowchartSummingJunction: Osp = "msoShapeFlowchartSummingJunction"
Case Is = msoShapeFlowchartTerminator: Osp = "msoShapeFlowchartTerminator"
Case Is = msoShapeFoldedCorner: Osp = "msoShapeFoldedCorner"
Case Is = msoShapeHeart: Osp = "msoShapeHeart"
Case Is = msoShapeHexagon: Osp = "msoShapeHexagon"
Case Is = msoShapeHorizontalScroll: Osp = "msoShapeHorizontalScroll"
Case Is = msoShapeIsoscelesTriangle: Osp = "msoShapeIsoscelesTriangle"
Case Is = msoShapeLeftArrow: Osp = "msoShapeLeftArrow"
Case Is = msoShapeLeftArrowCallout: Osp = "msoShapeLeftArrowCallout"
Case Is = msoShapeLeftBrace: Osp = "msoShapeLeftBrace"
Case Is = msoShapeLeftBracket: Osp = "msoShapeLeftBracket"
Case Is = msoShapeLeftRightArrow: Osp = "msoShapeLeftRightArrow"
Case Is = msoShapeLeftRightArrowCallout: Osp = "msoShapeLeftRightArrowCallout"
Case Is = msoShapeLeftRightUpArrow: Osp = "msoShapeLeftRightUpArrow"
Case Is = msoShapeLeftUpArrow: Osp = "msoShapeLeftUpArrow"
Case Is = msoShapeLightningBolt: Osp = "msoShapeLightningBolt"
Case Is = msoShapeLineCallout1: Osp = "msoShapeLineCallout1"
Case Is = msoShapeLineCallout1AccentBar: Osp = "msoShapeLineCallout1AccentBar"
Case Is = msoShapeLineCallout1BorderandAccentBar: Osp = "msoShapeLineCallout1BorderandAccentBar"
Case Is = msoShapeLineCallout1NoBorder: Osp = "msoShapeLineCallout1NoBorder"
Case Is = msoShapeLineCallout2: Osp = "msoShapeLineCallout2"
Case Is = msoShapeLineCallout2AccentBar: Osp = "msoShapeLineCallout2AccentBar"
Case Is = msoShapeLineCallout2BorderandAccentBar: Osp = "msoShapeLineCallout2BorderandAccentBar"
Case Is = msoShapeLineCallout2NoBorder: Osp = "msoShapeLineCallout2NoBorder"
Case Is = msoShapeLineCallout3: Osp = "msoShapeLineCallout3"
Case Is = msoShapeLineCallout3AccentBar: Osp = "msoShapeLineCallout3AccentBar"
Case Is = msoShapeLineCallout3BorderandAccentBar: Osp = "msoShapeLineCallout3BorderandAccentBar"
Case Is = msoShapeLineCallout3NoBorder: Osp = "msoShapeLineCallout3NoBorder"
Case Is = msoShapeLineCallout4: Osp = "msoShapeLineCallout4"
Case Is = msoShapeLineCallout4AccentBar: Osp = "msoShapeLineCallout4AccentBar"
Case Is = msoShapeLineCallout4BorderandAccentBar: Osp = "msoShapeLineCallout4BorderandAccentBar"
Case Is = msoShapeLineCallout4NoBorder: Osp = "msoShapeLineCallout4NoBorder"
Case Is = msoShapeMixed: Osp = "msoShapeMixed"
Case Is = msoShapeMoon: Osp = "msoShapeMoon"
Case Is = msoShapeNoSymbol: Osp = "msoShapeNoSymbol"
Case Is = msoShapeNotchedRightArrow: Osp = "msoShapeNotchedRightArrow"
Case Is = msoShapeNotPrimitive: Osp = "msoShapeNotPrimitive"
Case Is = msoShapeOctagon: Osp = "msoShapeOctagon"
Case Is = msoShapeOval: Osp = "msoShapeOval"
Case Is = msoShapeOvalCallout: Osp = "msoShapeOvalCallout"
Case Is = msoShapeParallelogram: Osp = "msoShapeParallelogram"
Case Is = msoShapePentagon: Osp = "msoShapePentagon"
Case Is = msoShapePlaque: Osp = "msoShapePlaque"
Case Is = msoShapeQuadArrowCallout: Osp = "msoShapeQuadArrowCallout"
Case Is = msoShapeRectangularCallout: Osp = "msoShapeRectangularCallout"
Case Is = msoShapeRightArrow: Osp = "msoShapeRightArrow"
Case Is = msoShapeRightBrace: Osp = "msoShapeRightBrace"
Case Is = msoShapeRightTriangle: Osp = "msoShapeRightTriangle"
Case Is = msoShapeRoundedRectangularCallout: Osp = "msoShapeRoundedRectangularCallout"
Case Is = msoShapeStripedRightArrow: Osp = "msoShapeStripedRightArrow"
Case Is = msoShapeTrapezoid: Osp = "msoShapeTrapezoid"
Case Is = msoShapeUpArrowCallout: Osp = "msoShapeUpArrowCallout"
Case Is = msoShapeUpDownArrowCallout: Osp = "msoShapeUpDownArrowCallout"
Case Is = msoShapeUTurnArrow: Osp = "msoShapeUTurnArrow"
Case Is = msoShapeWave: Osp = "msoShapeWave"
Case Is = msoShape16pointStar: Osp = "msoShape16pointStar"
Case Is = msoShape32pointStar: Osp = "msoShape32pointStar"
Case Is = msoShape5pointStar: Osp = "msoShape5pointStar"
Case Is = msoShapeActionButtonBackorPrevious: Osp = "msoShapeActionButtonBackorPrevious"
Case Is = msoShapeActionButtonCustom: Osp = "msoShapeActionButtonCustom"
Case Is = msoShapeActionButtonEnd: Osp = "msoShapeActionButtonEnd"
Case Is = msoShapeActionButtonHelp: Osp = "msoShapeActionButtonHelp"
Case Is = msoShapeActionButtonInformation: Osp = "msoShapeActionButtonInformation"
Case Is = msoShapeActionButtonReturn: Osp = "msoShapeActionButtonReturn"
Case Is = msoShapeArc: Osp = "msoShapeArc"
Case Is = msoShapeBentArrow: Osp = "msoShapeBentArrow"
Case Is = msoShapeBevel: Osp = "msoShapeBevel"
Case Is = msoShapeCan: Osp = "msoShapeCan"
Case Is = msoShapeCircularArrow: Osp = "msoShapeCircularArrow"
Case Is = msoShapeCross: Osp = "msoShapeCross"
Case Is = msoShapeCurvedDownArrow: Osp = "msoShapeCurvedDownArrow"
Case Is = msoShapeCurvedLeftArrow: Osp = "msoShapeCurvedLeftArrow"
Case Is = msoShapeCurvedUpArrow: Osp = "msoShapeCurvedUpArrow"
Case Is = msoShapeDiamond: Osp = "msoShapeDiamond"
Case Is = msoShapeDoubleBrace: Osp = "msoShapeDoubleBrace"
Case Is = msoShapeDoubleWave: Osp = "msoShapeDoubleWave"
Case Is = msoShapeDownArrowCallout: Osp = "msoShapeDownArrowCallout"
Case Is = msoShapeExplosion1: Osp = "msoShapeExplosion1"
Case Is = msoShapeFlowchartAlternateProcess: Osp = "msoShapeFlowchartAlternateProcess"
Case Is = msoShapeFlowchartCollate: Osp = "msoShapeFlowchartCollate"
Case Is = msoShapeFlowchartData: Osp = "msoShapeFlowchartData"
Case Is = msoShapeFlowchartDelay: Osp = "msoShapeFlowchartDelay"
Case Is = msoShapeQuadArrow: Osp = "msoShapeQuadArrow"
Case Is = msoShapeRectangle: Osp = "msoShapeRectangle"
Case Is = msoShapeRegularPentagon: Osp = "msoShapeRegularPentagon"
Case Is = msoShapeRightArrowCallout: Osp = "msoShapeRightArrowCallout"
Case Is = msoShapeRightBracket: Osp = "msoShapeRightBracket"
Case Is = msoShapeRoundedRectangle: Osp = "msoShapeRoundedRectangle"
Case Is = msoShapeSmileyFace: Osp = "msoShapeSmileyFace"
Case Is = msoShapeSun: Osp = "msoShapeSun"
Case Is = msoShapeUpArrow: Osp = "msoShapeUpArrow"
Case Is = msoShapeUpDownArrow: Osp = "msoShapeUpDownArrow"
Case Is = msoShapeUpRibbon: Osp = "msoShapeUpRibbon"
Case Is = msoShapeVerticalScroll: Osp = "msoShapeVerticalScroll"
End Select
c = c + 1
'MsgBox "Selected Shape Autoshape Type / Name / Number are :- " & Chr(10) & Osp & " / " & shp.Name & " / " & shp.AutoShapeType
shp.BottomRightCell = Osp
Next shp
MsgBox "There were :-" & Shapes.Count & " Shapes"