Breaking News: Grepper is joining You.com. Read the official announcement!

excel vba Loop through all shapes on a sheet

Nutty Narwhal answered on April 18, 2022 Popularity 3/10 Helpfulness 4/10

answer excel vba Loop through all shapes on a sheet

related excel vba Loop through all shapes in a workbook

excel vba Loop through all shapes on a sheet

Comment

' ----------------------------------------------------------------
' Purpose: Loop through all shapes on a sheet
' ----------------------------------------------------------------
Sub loopShapesSheet()

    Dim shp As Shape
    Dim sh As Worksheet

    Set sh = ThisWorkbook.Worksheets("Shape1")

    'If there is any shape on the sheet
    If sh.Shapes.Count > 0 Then
        'Loop through all the shapes on the sheet
        For Each shp In sh.Shapes
        
            'Print to immediate window shape type, shape name and sheet name holding the shape
            'Useful link: https://msdn.microsoft.com/en-us/VBA/Office-Shared-VBA/articles/msoshapetype-enumeration-office
            Debug.Print shp.Type & vbTab & shp.Name & vbTab & shp.Parent.Name
        
        Next shp
    End If
End Sub

Popularity 3/10 Helpfulness 4/10 Language vb

Source: www.excelcise.org

Tags: excel shapes vba

Link to this answer
Share Copy Link

Contributed on Apr 18 2022

Nutty Narwhal

0 Answers Avg Quality 2/10

Closely Related Answers

excel vba Loop through all shapes in a workbook

Comment

' ----------------------------------------------------------------
' Purpose: Loop through all shapes on all sheets in a workbook
' ----------------------------------------------------------------
Sub loopShapesAllSheet()

    Dim shp As Shape
    Dim sh As Worksheet

    'Loop through all the sheets in a workbook
    For Each sh In ThisWorkbook.Worksheets

        'If there is any shape on the sheet
        If sh.Shapes.Count > 0 Then
            'Loop through all the shapes on the sheet
            For Each shp In sh.Shapes
        
                'Print to immediate window shape type, shape name and sheet name holding the shape
                'Useful link: https://msdn.microsoft.com/en-us/VBA/Office-Shared-VBA/articles/msoshapetype-enumeration-office
                Debug.Print shp.Type & vbTab & shp.Name & vbTab & shp.Parent.Name
        
            Next shp
        End If
    Next sh
End Sub

Popularity 3/10 Helpfulness 3/10 Language vb

Source: www.excelcise.org

Tags: vba shapes excel

Link to this answer
Share Copy Link

Contributed on Apr 18 2022

Nutty Narwhal

0 Answers Avg Quality 2/10

excel vba Loop through all shapes on a sheet

Contents

More Related Answers

excel vba Loop through all shapes on a sheet

Closely Related Answers

excel vba Loop through all shapes in a workbook

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.