Création d'une macro ZOOM/DEZOOM sur carte statique

Bonjour à tous,

Actuellement sur un projet de construction d'une carte de géolocalisation de clients, plusieurs points sur cette carte se trouvent très proches les uns des autres (quasi-indissociables). Afin de pouvoir utiliser ma carte convenablement, je me demande s'il ne serait pas possible de créer une macro en VBA qui permettrait de scroller (ZOOM/DEZOOM) ou autre solution (bouton, barre de défilement..) sur cette carte en conservant la localisation exacte (Coordonnées XY) des points sur cette carte.

En PJ, un exemple de mon fichier. (la Macro de création de la Carte ne venant pas de moi, Code cependant optimisé par mes soins)

Merci d'avance à ceux qui pourrait m'aider.

-Gael-

Bonjor,

et un "simple" CTRL + molette ne te convients pas

Bonjour

Cette commande te permet de zoomer une shape appelée "Rectangle1"

A vous de tenter d'adapter avec les coordonnées XY de la *Mouse

Sub Rectangle1_QuandClic()

Application.ScreenUpdating = False
    Static DéjàVu
    If DéjàVu = True Then
        ActiveSheet.Shapes("Rectangle 1").Select
        Selection.ShapeRange.Height = 375
        Selection.ShapeRange.Width = 375
        DéjàVu = False
        'Range("a1").Select
    Else
        ActiveSheet.Shapes("Rectangle 1").Select
        Selection.ShapeRange.Height = 80
        Selection.ShapeRange.Width = 80
        DéjàVu = True
        'Range("a1").Select
        Application.ScreenUpdating = True
    End If
End Sub

Bonsoir,

@Valc : et non un simple Ctrl+molette ne fonctionne pas. cela aurait été trop facile !!! mais merci

@Nathalie Charette : Merci pour votre réponse, cependant je pense que ce serait une "usine à gaz" à coder et contrôler car à chaque variation du Zoom/Dezoom il me faudrait recalculer la position des points(ellipse) tout en diminuant leur taille.

J'ai remarqué que Power View disponible sur Excel 2016(version non disponible sur mon ordi domestique, mais je peux tester au travail) pouvait me proposer une carte satellitaire avec des fonctions Zoom/Dezoom classique(carte Bing).

Seulement je ne maîtrise pas cette nouvelle fonctionnalité, est-il possible d'adapter la carte (que j'avais mise en PJ plus haut) sous Power View/3D Map, et ce en respectant les subtilités de programmation déjà présente :

• Mise en Forme en fonction de conditions liées aux Date Système et Dates d'Echeances
• Création de formulaires au survol de la souris ou au clic sur un point

Est-ce possible de coder en VBA pour obtenir une carte PowerView, j'imagine qu'il existe des fonctions/termes spécifiques pour appeler cette fonctionnalité ?

D'avance merci à tous les spécialistes du sujet qui pourraient m'aider.

Bonjour,

Up,

Personne pour un bout de code sur PowerView/3D Map, fonctionnalité pourtant présente sous Excel 2016 ? (Cf. ancienne demande ci-dessous) ?

Merci.

Cdt