Discussion :

[CHRISS59]

Bonjour,
J’ai besoin d'aide concernant une macro que je n'arrive pas à faire, je vous explique le bute de ma macro:
dans un userforme j'utilise InkPicture le but c'est de faire signer le client et d'exporter la signature dans un rapport, jusque la j'ai réussi.
mon soucie est que l'image que j'exporte n'ai pas au format de mes cellule du rapport et je n'arrive pas à redimensionner dans la macro.
Je m'explique peut être pas très bien, donc je vous mes un exemple en pièce jointe.

En vous remercient d'avance de votre aide.

[kiki29]

Salut, et si tu avais cherché dans la FAQ ?

[CHRISS59]

merci mais en faite j'avais déja regarder mes le problème c'est que je ne sais pas comment le mettre en place dans ma macro car je débute en vba.
Si vous pouvez m'aidez a mettre en place cette formule dans ma macro.
Merci

[kiki29]

Salut, tu n'as strictement rien essayé, car en rajoutant le code de la FAQ dans un module, puis la plage d'insertion correcte cela fonctionne, plutôt qu'une UserForm sans intérêt avec un code ébouriffant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Option Explicit
 
Sub InsertionImage()
Dim Emplacement As Range
Dim Img As Object
Dim ShapeObj As Shape
 
    For Each ShapeObj In ActiveSheet.Shapes
        If ShapeObj.Name = "Cible" Then ActiveSheet.Shapes("Cible").Delete
    Next ShapeObj
 
    If Application.Dialogs(xlDialogInsertPicture).Show Then
        Set Emplacement = Feuil2.Range("F27:I31")
        Set Img = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
        With Img.ShapeRange
            .Name = "Cible"
            .LockAspectRatio = msoFalse
            .Left = Emplacement.Left
            .Top = Emplacement.Top
            .Height = Emplacement.Height
            .Width = Emplacement.Width
        End With
    Else
        MsgBox "Insertion d'image interrompue."
    End If
End Sub

[CHRISS59]

bonjour,
le probleme avec le module c'est que l'image en question est deja dans ma feuille excel, je ne desir pas aller la chercher dans mes dossier.
Et surtout, j'ai absolument besoin de mon userform car j'ai plusieurs chose dedans (textbox, combobox, etc..) ainsi que inkpicture et quand j'appuie sur enregistrer tout ce colle dans mon rapport
jusque maintenant inkpicture ce copie bien dans mon rapport, mes pas a la bonne taille.
sinon est il possible de copie mon image de inkpicture au format cellule?