Tableau insert photo

Question

Je souhaite créer une macro qui me permet de choisir des photos qui ont toutes la même taille ( imaginons 6 (photo 1, photo 2, photo 3 ... Photo 6)) dans un dossier (donc avoir une fenêtre de recherche de photo dans mes dossiers. Ensuite de pouvoir les redimensionner et de pouvoir enfin placer : - la photo 1 dans la case B2 au centre - la photo 2 dans la case B3 au centre - la photo 3 dans la case C2 au centre - la photo 4 dans la case C3 au centre - la photo 5 dans la case D2 au centre - la photo 6 dans la case D3 au centre Est-il possible que quelqu'un me donne un petit coup de main ...

3GB · Accepted Answer

Voici un essai dans ce cas avec des images à l'extension jpg, une hauteur de cellule à 250 et une largeur de cellule à 50 :

Sub ChargerImage()
t = application.getopenfilename(filefilter:="Images *.jpg, *.jpg", multiselect:=true)
if not isarray(t) then exit sub
for i = ubound(t) to lbound(t) step - 1
    with range("B2:D3")
        with .cells(.cells.count - i + 1)
            .columnwidth = 50
            .rowheight = 250
            .parent.shapes.addpicture t(i), msotrue, msofalse, .left, .top, .width, .height
        end with
    end with
next i
end sub

Cdlt,

3GB · Answer

Il faut sélectionner les photos ou il faut toutes les importer d'un coup ? Cdlt...

3GB · Answer

Donc si je comprends bien, vous sélectionnez 6 photos et elles sont importées dans les cellules B2:D3. Qu'en est-il de la disposition ? Ca ne vous importe pas ...

3GB · Answer

Merci pour ces précisions mais comment savoir quelle photo parmi les 6 est la photo 1 et idem pour les 5 autres ...