vba取值activex控件所在行号

Sub aa()
Dim shp As Shape
For Each shp In Shapes
irow1 = shp.TopLeftCell.Row '获的shape对象的左上角所在单元格的行号
icol1 = shp.TopLeftCell.Column '获的shape对象的左上角所在单元格的的列号
irow2 = shp.BottomRightCell.Row '获得shape对象的右下角所在单元格的行号
icol2 = shp.BottomRightCell.Column '获得shape对象的右下角所在单元格的列号
Cells(irow1, icol2 + 1) = shp.Name '把shape对象的名字写入shape对象右边一列
Cells(irow1, icol2 + 2) = Shapes(Cells(irow1, icol2 + 1).Value).TopLeftCell.Row '通过引用shape对象的名字,获得shape左上角所在的行号,并写入shape对象右边第二列
Next
End Sub本回答被网友采纳

Sub aa()
Dim shp As Shape
For Each shp In Shapes
    irow1 = shp.TopLeftCell.Row             '获的shape对象的左上角所在单元格的行号
    icol1 = shp.TopLeftCell.Column          '获的shape对象的左上角所在单元格的的列号
    irow2 = shp.BottomRightCell.Row         '获得shape对象的右下角所在单元格的行号
    icol2 = shp.BottomRightCell.Column      '获得shape对象的右下角所在单元格的列号
    Cells(irow1, icol2 + 1) = shp.Name      '把shape对象的名字写入shape对象右边一列
    Cells(irow1, icol2 + 2) = Shapes(Cells(irow1, icol2 + 1).Value).TopLeftCell.Row  '通过引用shape对象的名字,获得shape左上角所在的行号,并写入shape对象右边第二列
Next
End Sub