VBA loop for Each that retrive litte image but not allign

[GerryZ]

Hello Vba Friends, Im Learning VBA, I' have a code that works fine but only one problem:
I need that in range C2:C16 all images will be allign correctly in the center of the cells

Option Explicit

Sub InserisciLaFaccina()
Dim cella As Range
Dim Faccina As Shape
For Each Faccina In Foglio1.Shapes
    If Faccina.Name <> "Immagine1" _
        And Faccina.Name <> "Immagine2" _
        And Faccina.Name <> "Immagine3" _
        And Faccina.Name <> "Immagine4" Then
    Faccina.Delete
    End If
Next
    For Each cella In Range("B2:B16")
            If cella.Value < 6 Then
                    Foglio1.Shapes("Immagine3").Copy
                    cella.Offset(0, 1).PasteSpecial
            ElseIf cella.Value >= 6 And cella.Value < 8 Then
                    Foglio1.Shapes("Immagine2").Copy
                    cella.Offset(0, 1).PasteSpecial
             Else
                    Foglio1.Shapes("Immagine1").Copy
                    cella.Offset(0, 1).PasteSpecial
             End If
    Next cella
End Sub

Thank you for your help

 

[Fluff]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: VBA how can I align the image in the center of the cell?
If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[Fluff]

Try adding this line after each past special line

                    Selection.Left = cella.Offset(, 1).Left + cella.Width / 2 - Selection.Width / 2

 

[GerryZ]

Thank you solved

 

[Fluff]

You're welcome & thanks for the feedback.