Background Image Scale

[warpedone]

I have a sheet where I inserted a map as a background image. I put information in various cells based on their proximity to the map. Works great - on my machine.

A coworker opened the same file on his machine and the background image scale was different in relation to his cells (I'm guessing because of a different screen size or different resolution) so that the cells don't line up with the background image the way they do on my computer.

Is there any way to set and hold the scale of the background image so it looks the same no matter what kind of machine it's opened with?

 

[tonyyy]

warpedone,

One approach is to set the image relative to the range...

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim shp As Shape
Set shp = ActiveSheet.Shapes("Picture 1") 'Change to your image name
    With shp
        .LockAspectRatio = False
        .Top = Range("B2").Top 'Change range reference to match your range
        .Left = Range("B2").Left
        .Width = Range("B2:Q2").Width
        .Height = Range("B2:B40").Height
    End With
Application.ScreenUpdating = True
End Sub

The code should be pasted into the sheet module that contains the image. Be sure to change the image name to match your image name, as well as the range references.

Cheers,

tonyyy

 

[mvpalley]

Hey, I am getting this highlight when I am trying to debug. I am also trying to get the background image to stay set in relation to the cells (no matter what size screen it is on). What does it mean and how do I fix it? I really appreciate the help.

Matt

 

[Fluff]

Duplicate to: Background Image Scale

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.