Comment maintenir à un endroit fixe des images ds une feuille ? Fermé

Question

Bonjour, 

En suivant des indications sur le net, j'ai configuré des images pour qu'elles restent fixes. Configurations déjà faites sous Excel 2010 :
- Clic droit sur une image à fixer
- Taille et propriétés
- Propriétés
- Ne pas déplacer ou dimensionner avec les cellules
- Case à cocher Verrouillé cochée

Malgré cela, rien à faire, les images restent à l'endroit où elles se trouvent par rapport aux lignes et colonnes d'Excel. Qu'est-ce qui manque ?

J'ai besoin que les images actuellement situées au-dessus de la plage de cellules A1-E1 restent visibles même si on se déplace dans le tableau et qu'on se situe sur la cellule J45 par exemple.

Avez-vous une idée ?

Vaucluse · Answer

Bonjour

il ne manque rien, les conditions concernent uniquement la position des images par rapport à la grille, mais pas par rapport à la partie affichée à l'écran.
La seule solution serait de figer les volets dans la zone d'image, mais pour cela, il ne faut des images que dans cette zone à gauche

crdlmnt

Mike-31 · Answer

Bonsoir le fil,

Pour cela il n'y a que le VBA qui fixera l'image toujours par rapport à la cellule active.

tester ce code pour 3 images nommée Image 1, Image 2 et Image 3 à adapter bien sur
 
clic droit sur l'onglet de ta feuille/Visualiser le code et coller ce code qui fixera le zoom à 100%, et adapter la position vers la droite Left + et la position vers le bas Top +

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rngCanSee As Range
    Dim Valzoum As Integer
    Valzoum = ActiveWindow.Zoom
    Set ecran = ActiveWindow.VisibleRange
    C2 = ActiveWindow.VisibleRange.Rows.Count
    C4 = C2 * (11 - Valzoum / 100)
    With ActiveSheet
    Shapes("Image 1").Left = ecran.Left + 10 
    Shapes("Image 1").Top = ecran.Top + 200
   Shapes("Image 2").Left = ecran.Left + 180
    Shapes("Image 2").Top = ecran.Top + 200
   Shapes("Image 3").Left = ecran.Left + 350
    Shapes("Image 3").Top = ecran.Top + 200
    End With
End Sub


avec un exemple sur ce lien

	https://www.cjoint.com/c/EAwtkViiWj7

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re,

Eh bien si tu testes mon fichier, les trois images son toujours visible quelque soit la position de la cellule active sur l'écran

Mike-31 · Answer

Re,

Alors je ne comprends plus, Vaucluse que je salue à proposé l'utilisation des volets qui est une solution mais qui ne convient pas, d'où ma proposition en fonction de ce que j'ai compris  voir les images quelque soit la position de la cellule active ce que fait mon code.

Pour ma part avant de refaire une proposition expliquez différemment votre problème que l'on comprenne

Mike-31 · Answer

Re,

Pour déposer un fichier anonymisé, clic sur ce lien, puis sur parcourir pour sélectionner le fichier, sur créer le lien et pour terminer coller dans une réponse le lien généré

https://www.cjoint.com/

Mike-31 · Answer

Re,

Déjà au départ tu avais une erreur dans le code de la Thiswokbook, ce code dans les propriété de ta feuille Glossaire Glossary Glosario est inutile et mal venu que j'ai supprimé

Private Sub Workbook_Open()
Sheets("Accueil").Select 'et non pas '...'
End Sub

ensuite j'ai activé toutes tes images pour les grouper de sorte à écrire qu'une ligne de code et le groupe est nommé Groupe_1
Par contre si tu dois associer chaque image à une fonction il faudra écrire une ligne de code par image, mais cela n'est pas un problème

dans les propriété de ta feuille Glossaire Glossary Glosario j'ai collé ce code

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim ecran As Range
    Set ecran = ActiveWindow.VisibleRange
    With ActiveSheet
    Shapes("Groupe_1").Left = ecran.Left + 10
    End With
End Sub

j'espère avoir cerné ton problème, regarde le fichier en retour

 https://www.cjoint.com/c/EAxpw1NsQfo 
 
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.