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

[Canklown]

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

 

[Guest]

Re : Centrer image sur cellules ou cellulles fusionnées avec séléection manuelle

Bonjour,

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

La réponse est certainement sur cet autre forum...arf

A+

 

[Canklown]

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

Malheureusement non.
Je partage si ça peut intéresser quelqu'un d'autre que moi, c'est un peu le but non?