选择要缩放的位置时，我想在Excel中添加地图

Question

Sub insertMap()
On Error GoTo err
    Shapes("gMap").Fill.UserPicture [gurl]
    Exit Sub
err: MsgBox "Error occured while generating the map" & vbNewLine & err.Description
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [CityName].Address Or _
Target.Address = [maptype].Address Or _
Target.Address = [zoomLevel].Address Then insertMap
End Sub

请，我想在该站点上包含50个站点，当单击任何站点时，它们会使用站点某些特殊值的花朵对站点进行放大 非常感谢