[EuropeMap] Hiding words when zoom out

[Montague26]

Here's my excel Europe map and there is some province that will named(and showed in map).
And I have a problem, I want to hide those words when I zoom out, and it show name when I zoom in the map.

Any way to do this?

 

[CalcSux78]

Depends on how the label appears on the workbook and what sort of trigger event you'd like to use.

There isn't a worksheet or workbook event for changing the zoom level of your window. Worst case scenario, you could tie a subroutine to the selection_Change event of either the worksheet or the workbook.

If you're putting the text within a shape (i.e. Rectangle, Oval, etc...) you could call this sub from your change event.

Sub CheckZoom()
Dim nShape As Shape
Dim iVis As Integer
    
If ActiveWindow.Zoom < 50 Then
    iVis = 0    'msoFalse
Else
    iVis = 1    'msoCTrue
End If


For Each nShape In ActiveSheet.Shapes
    nShape.Visible = iVis
Next nShape


End Sub