Help with Macro that Moves Shape

[gator2]

I have a spreadsheet with 20 charts, each comparing one of our products vs similar products from our competitors, as well as a map for each competitor.

The charts run along the right side of the spreadsheet with the map on the left side. A drop down menu allows you to toggle between maps. The way the rest of the spreadsheet is laid out, there isn't room freeze the maps at the top, so I've written a macro (below) to allow the map to follow you as scroll down to the different maps. Problem is, where ever you click on the spreadsheet is where the map appears. Is there a way to keep it in line with column A?

Thanks in advance for your help.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)


Dim myShape As Shape


Set myShape = Me.Shapes("Competitor A")


With Me.Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn)
myShape.Top = .Top
myShape.Left = .Left
End With


End Sub

 

[Yongle]

Not sure if this is what you want. It keeps the left of the shape pinned to the left of column A - so the shape is only visible if column A is visible on the screen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim myShape As Shape
Set myShape = Me.Shapes("Competitor A")

With Me.Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn)
    myShape.Top = .Top
    myShape.Left = [COLOR=#ff0000]Range("A1").Left[/COLOR]
End With

End Sub

 

[gator2]

This worked perfectly. Thank you so much for your help!

 

[gator2]

I'd like to change up my spreadsheet, with the goal of "fencing in" the map between columns A-G, and being able to scroll through columns H on to view the chart and graph, as they're too large to see on the screen. When I freeze panes and click on a cell, rather than staying in line with column A, the image jumps over the freeze pane line at column H.

Here's is the current vba code. Is it possible to prevent this? Thanks for the help.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim myShape As Shape
Set myShape = Me.Shapes("Competitor A")

With Me.Cells(ActiveWindow.ScrollRow, ActiveWindow.ScrollColumn)
myShape.Top = .Top
myShape.Left = Range("A1").Left
End With

End Sub