Centrer image sur cellules ou cellulles fusionnées avec sélection manuelle

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Canklown

XLDnaute Nouveau
Bonjour à tous,

Je souhaite pouvoir centrer une image que je souhaite sélectionner à la souris sur une ou plusieurs cellules ou sur des cellules fusionnées sélectionnées aussi à la souris.

J'arrive à sélectionner les cellules mais j'ai l'impression que l'InputBox ne gère pas les cellules fusionnées.
J'aimerais également pouvoir sélectionner l'image que je souhaite centrer.

Quelqu'un pourrait m'aider?

Par avance merci.

Ci-dessous macro VBA chopée d'un autre forum.

Sub CentreImage()
Dim cel As Range, k1 As Double, k2 As Double
Set cel = Application.InputBox(prompt:="Sélectionner les cellules sur la feuille", Type:=8) ' à modifier pour tenir compte des cellules fusionnées
With ActiveSheet.Shapes("Image 1") 'à modifier pour sélectionner l'image
k1 = .Width / cel.Width
k2 = .Height / cel.Height
If k1 > k2 Then
.Width = (.Width / k1) - 4
.Top = cel.Top + (cel.Height - .Height) / 2
.Left = cel.Left + 2
Else
.Width = .Width / k2 - 2
.Top = cel.Top + 1
.Left = cel.Left + (cel.Width - .Width) / 2
End If
End With
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
459
  • Question Question
Microsoft 365 choisir une page
Réponses
6
Affichages
806
Réponses
0
Affichages
2 K
Retour