Problème macro insertion plusieurs photos.

ettelofa

XLDnaute Nouveau
Bonjour,

Nouveau sur le forum, que j'ai découvert grâce à des posts constructifs et élaborés.
Je bloque sur une macro, pour cela j'en appelle à votre aide.

Mon but/ insertion de photos (6, 8, ou 10) (n) ; sur une feuille par un bouton. (chaque photo sera choisi par l'opérateur).

Merci d'avance.

Sub insertphoto()
Dim Emplacement As Range
Dim image As Object
Dim ShapeObj As Object

On Error GoTo Fin

For i = 1 To 2 'deux pour exemple'
Fichier = "cible" & CStr(i)

For Each ShapeObj In ActiveSheet.DrawingObjects
If ShapeObj.Name = "cible" Then ActiveSheet.Shapes("cible").Delete
Next ShapeObj

Application.Dialogs(xlDialogInsertPicture).Show
Set Emplacement = Range(Choose(i, "B2:D9", "B10:D17"))

Set image = ActiveSheet.DrawingObjects(2)
With image.ShapeRange
.Name = "cible" & CStr(i)
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With
Next i

Exit Sub
Fin:
If Err = 1004 Then MsgBox "Insertion d'image interrompue . "
End Sub
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas