Refer to a shape properties located in other sheet

[drom]

Hi and Thanks in advance!

I Do not have to select the Shape to get the following info:

Dim shp As Object:                Set shp = Sheets(1).Shapes("pImgModel")

Debug.Print shp.Placement
Debug.Print shp.Left
Debug.Print shp.Top
Debug.Print shp.Width
Debug.Print shp.Height

If I select the shape, I can get this info:

Dim shp As Object:                Set shp = Sheets(1).Shapes("pImgModel")
                                  shp.Select
With Selection
Debug.Print .ShapeRange.LockAspectRatio
Debug.Print .ShapeRange.Line.ForeColor.ObjectThemeColor
Debug.Print .ShapeRange.Line.Visible
Debug.Print .ShapeRange.Line.ForeColor.TintAndShade
Debug.Print .ShapeRange.Line.ForeColor.Brightness
Debug.Print .ShapeRange.Line.Transparency
End With

'But Is it possible to get the prior info without selecting the shape?

(because my activesheet is gonna be Sheets(6)​

I do not want to move from sheets(6) to Sheets(1) and go back to Sheets(6)​

This way does not work:

Dim shp As Object:                Set shp = Sheets(1).Shapes("pImgModel")
With shp
Debug.Print .ShapeRange.LockAspectRatio
Debug.Print .ShapeRange.Line.ForeColor.ObjectThemeColor
Debug.Print .ShapeRange.Line.Visible
Debug.Print .ShapeRange.Line.ForeColor.TintAndShade
Debug.Print .ShapeRange.Line.ForeColor.Brightness
Debug.Print .ShapeRange.Line.Transparency
End With

Thanks again !

 

[Fluff]

Declare it as Shape not Object & then you can use

Debug.Print .LockAspectRatio
Debug.Print .Line.ForeColor.ObjectThemeColor
Debug.Print .Line.Visible
Debug.Print .Line.ForeColor.TintAndShade
Debug.Print .Line.ForeColor.Brightness
Debug.Print .Line.Transparency