Hoe krijg ik de afbeelding in het midden van een range

[tjeerd1972]

Hallo,

Ik zit met het volgende probleem.
door middel van een vba (zie voorbeeld) kies ik een afbeelding deze wordt dan in een activecell geplaatst maar nu staat de afbeelding altijd aan de linker kant.
maar nu zou ik hem graag in het midden van activecell willen hebben, heeft iemand hier een oplossing voor?Bekijk bijlage fotoinvoegen.xls

 

[Warme bakkertje]

    With p
        .Top = t
        .Width = w
        .Height = h
        .Left = l + (w - p.Width) / 2
    End With

 

[tjeerd1972]

Super bedankt