Demande de modification d'une insertion d'image

Version imprimable

Bonjour à tous :

J'ai réussis tant bien que mal a faire fonctionner cette macro :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub Image1_Click() ' Routing pour insérer image dans un contrôle de formulaire ActiveX Dim Pict Dim ImgFileFormat As String Dim Ans As Integer ImgFileFormat = "Image JPEG (*.jpg),*.jpg,Bitmap (*.bmp),*.bmp,Png (*.png),*.png" Pict = Application.GetOpenFilename(ImgFileFormat) If Pict = False Then 'Aucune image sélectionnée Pict = "" Image1.Picture = LoadPicture(Pict) Exit Sub Else Image1.Picture = LoadPicture(Pict) Image1.PictureSizeMode = fmPictureSizeModeZoom End If End Sub
je présume qu'il y a certainement des erreurs (n'hésiter pas a me la modifier pour optimisation)

Par contre j'ai un soucis quand on clique sur l'image si on ne réinsère pas cette image celle ci est perdu.

J'aimerai une solution pour soit garder la dernière image en cours à l'ouverture

soit une variable par oui ou non "vous allez modifié l'image voulez vous continuer "

Et franchement mes compétence sont tellement faible que je ne sais plus ou vraiment chercher.

Voila je vous remercie d'avance pour votre aide

J'ai un second soucis ma photo inserer dans excel triple de volume d'octet

Vous avez une idée ?

29/01/2014, 18h18
patricktoulon

HEU;;;;

Bonjour

regarde plutôt du coté de

Code:

ActiveSheet.Pictures.Insert(chemin )

Au plaisir
29/01/2014, 18h42
Tatail

Avec le controle d'image ca peux marcher ?
29/01/2014, 18h54
patricktoulon

re

non !
un control image est un activeX donc plus gros en terme d'octets

ce que je t'ai donné c'est la méthode pour ajouter ou mettre une image sur la feuille ca fait partie des shapes ce n'est pas le même composant
29/01/2014, 19h10
Tatail

Donc j'avais bien compris et j'ai énorme soucis ma solution n'est pas réalisable.

Techniquement elle fonctionne mais pour une image réalisé avec l'active x ca me fait un volume 10 fois supérieur par image et j'en ai 50 par fichier.

J'avais choisit l'active x parceque mon cadre n'est pas dans une cellule et que ma photo se formate dans le cadre

Avec la solution que tu m'as donné c'est dans une cellule et la je ne peux pas.
29/01/2014, 19h12
patricktoulon

absolument faux !!

tu peut très bien insérer une image (shapes) ou tu veux et de la taille que tu veux et même lui attribuer une macro si nécessaire

bon en relisant ton premier post

il me semble percevoir un simple clic sur l'image pour la changer et si aucun choix n'est fait laisser celle qui est présente
c'est bien ca ?????
29/01/2014, 19h46
Tatail

re

Tout a fais

Bon voila

ouvre un nouveau fichier Excel ajoute lui un module standard

et colle lui ceci

Code:

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
27
28
29
30
31
32
33
34
 
Sub AjoutImage()
    ' Routing pour insérer image avec macro sans contrôle de formulaire ActiveX
    Dim Pict
    Dim ImgFileFormat As String
Dim ObjetImage As Object
 
    ImgFileFormat = "Image JPEG (*.jpg),*.jpg,Bitmap (*.bmp),*.bmp,Png (*.png),*.png"
 
    Pict = Application.GetOpenFilename(ImgFileFormat)
    If Pict = False Then    'Aucune image sélectionnée
        Exit Sub
    Else
    For Each sh In ActiveSheet.Shapes
If sh.Name = "dermage" Then SupprimerImage "dermage"
 Next
 End If
 
 
    Application.ScreenUpdating = False
    With ActiveSheet
 
                Set ObjetImage = .Pictures.Insert(Pict)
        ObjetImage.Top = [b2].Top
        ObjetImage.Left = [b2].Left
        ObjetImage.Height = 100 'Application.CentimetersToPoints(7.6)
        ObjetImage.Name = "dermage"
     ObjetImage.OnAction = "AjoutImage"
    End With
    Application.ScreenUpdating = True
End Sub
Sub SupprimerImage(DestinationImage)
ActiveSheet.Pictures("dermage").Delete
End Sub

maintenant lance une première fois la macro ajoutimage

tu peut choisir dans la fenêtre l'image que tu veux

a partir de maintenant a chaque fois que tu clique sur l'image et que tu aura choisi une image l'ancienne sera effacer et la nouvelle mise en place
comme tu peut le constater Jai placer l'image ou je veux et lui est donner la taille que j'ai voulu

Au plaisir

30/01/2014, 09h27
Tatail

Merci mais

Bonjour,

Ca fonctionne parfaitement merci, (je la garde bien au chaud ca me servira certainement):cry:

Par contre je ne peux pas l'utiliser :oops: l'image doit être dans le fichier excel.

Merci de ton aide

Par contre la fonction "Dermage" -> :aie: je colle un peu
30/01/2014, 13h14
patricktoulon

re

Bonjour
dermage n'est pas une fonction c'est le nom que je donne a l'image a chaque fois

Au plaisir

Toujour pareil

toujours le meme soucis mon image est x10 en volume à l'insertion et je comprend pas pourquoi et j'ai pas de solution je viens au secours de tous. existe-t-il une solution ? ou gros bug ?

Dans tous les cas mon image doit être insérer dans excel.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Image3_Click()
' Routing pour insérer image dans un contrôle de formulaire ActiveX
Dim Pict
Dim ImgFileFormat As String
Dim Ans As Integer
ImgFileFormat = "Fichier image JPEG (*.jpg),*.jpg,Bitmap (*.bmp),*.bmp,Png (*.png),*.png"
 
Pict = Application.GetOpenFilename(ImgFileFormat, Title:="Sélectionne une image")
If Pict = False Then 'Aucune image sélectionnée
If MsgBox("Etes-vous certain de ne pas insèrer d'image", vbYesNo + vbQuestion + vbDefaultButton1 + vbApplicationModal, "Demande de confirmation d'image") = vbNo Then
        Pict = ""
        MsgBox "Aucune image selectionnnée"
Image3.Picture = LoadPicture(Pict)
Exit Sub
End If
Else
Image3.Picture = LoadPicture(Pict)
Image3.PictureSizeMode = fmPictureSizeModeZoom
 
End If
 
End Sub

28/02/2014, 18h18
keygen08

1 pièce(s) jointe(s)

Bonjour

Si cela peur aider,
le code est un peu long mais les images inserer sont redimensionner et compresser de facon a ne pas faire trop grossir le fichier excel.
Une sauvegarde de l'image compresser est realiser sur c:\mns

Je vous laisse supprimer tout ce dont vous n'avez pas besoins (mettez en commentaires dans un premier temps)
01/03/2014, 16h43
patricktoulon

re

Bonjours a tous

remarquable ton petit module kegen08

court et précis il y a eue tellement de bug au départ avec seven et WIA que je l'avais abandonné celle la

nikel un bon petit point pour toi

une petite remarque cependant

quand tu obtiens un code relativement satisfaisant élimine le reste des modules et code impropre sinon c'est la bérézina et ca aide pas a la compréhension ;)
03/03/2014, 09h05
Tatail

re

Merci de ces éléments,

je vais potasser tous ça, essayer de l'appliquer a mes besoins.

Mais la un grand pas à été franchis, dès que j'aurais terminé, je vous le ressoumettrais pour finaliser.

Merci