resize Picture 1 to fit screen regardless of actual screen size

[redspanna]

Hi all

On Sheet1 I have a Picture.

When workbook is opened for first time I would like Sheet1 to be selected and then the Picture to be resized automatically to fit the entire screen regardless of the screen size.

is this possible with VBA, if so how ??

Many thanks in advance

 

[Jaafar Tribak]

Take a look at the VisibleRange Left,Top, Width and Height Properties and adjust the picture size to them

 

[redspanna]

Take a look at the VisibleRange Left,Top, Width and Height Properties and adjust the picture size to them

but that won't automatically adjust the picture according to the size of screen the worksheet is opened on?

 

[Jaafar Tribak]

but that won't automatically adjust the picture according to the size of screen the worksheet is opened on?

Option Explicit

Private Sub Workbook_Open()
    With [B][COLOR=#ff0000]Sheet1[/COLOR][/B].Shapes("[COLOR=#ff0000][B]Image 1[/B][/COLOR]")
        .Parent.Activate
        .LockAspectRatio = msoFalse
        .Left = ActiveWindow.VisibleRange.Left
        .Top = ActiveWindow.VisibleRange.Top
        .Width = ActiveWindow.VisibleRange.Width
        .Height = ActiveWindow.VisibleRange.Height
    End With
End Sub

Change the Sheet codename and picture name in red as required.

 

[redspanna]

Perfect - thanks so much

 

[Jaafar Tribak]

Perfect - thanks so much

You are welcome.