Relative Image Position

[tinmice]

Hi Guys,

I'm making a template for a new set of reports that I'm producing and want to keep it fairly simple.

I want a logo in the top right of the screen, as part of a header that I have already created that just consists of text in various cells. I can position the image absolutely, but I would quite like it so that whatever resolution screen I open it on, the logo appears in the upper right corner of the visible cells.

I don't know if this is possible, I have been searching for a while now and not found all that much. Any ideas?

Thanks.

 

[Jaafar Tribak]

You may want to try something along these lines :

change the sheet and image names as required.

Private Sub Workbook_Open()
    With Sheets(1).Shapes("image 1")
        .Left = ActiveWindow.VisibleRange.Width - _
        .Width - ActiveWindow.VisibleRange.Columns _
        (ActiveWindow.VisibleRange.Columns.Count).Width
    End With
End Sub

 

[tinmice]

Thats great, thanks.

I took the '- .width' out as it was coming in about an images width from the right of the screen, but it works fine otherwise.

Thanks for your help.