Résultats pour "image"

697 résultats pour cette recherche

Bonjour à tous,

Je voyais régulièrement sur certains sites, des profils avec des avatars personnalisés très sympathiques ... Et j'ai découvert assez récemment le site qui permet de créer ces avatars à son image (exemple de résultat => mon avatar) ...

Il est vrai que c'est assez agréable de pouvoir mettre un visage sur un pseudo (même si ce n'est pas une photo), je vais donc vous expliquer comment créer le vôtre simplement (et gratuitement), en espérant qu'un maximum de membres prendront la peine de le faire

Créer un avatar à son image

Rendez-vous sur FaceYourManga.com et cliquez sur l'un des 2 personnages.

Vous pourrez ensuite personnaliser tous les détails du personnage ...

Pour personnaliser le visage, cliquez sur les différents boutons gris et choisissez une forme, une couleur :

visage

Après le visage, cliquez sur les cheveux (à droite) et faites vos choix :

cheveux

Même principe pour les boutons suivants ...

Lorsque vous avez terminé, cliquez sur "Save" et entrez vos prénom/email.

Le lien de téléchargement vous aura été envoyé par email (cliquez sur le premier lien puis sur "Download avatar" en bas de page.

Exemple de résultat :

exemple

Ajouter votre avatar

Cliquez ici pour accéder à votre profil et ajouter votre nouvel avatar

Bonjour le forum,

dans mon projet, j'arrive à insérer l'image que je veux mais je n'arrive pas redimensionner l'image et à trouver le code qui va me permettre d'enregistrer l'image dans un dossier que j'ai créé.

Par exemple, en cliquant sur ENREGISTRER, les infos partent dans la feuille Excel et je souhaiterais que l'image soit enregistrer dans mon fichier:" C:\Nouveau dossier."

Je joint mon fichier

118badge.zip (12.06 Ko)

Bonjour,

je souhaite insérer une image dans un vba pour ensuite pouvoir l'exporter vers un ppt. J'ai à peu près réussi à tout faire mais j'ai un dernier soucis, lorsque que je charge un image dans mon fichier excel via ce code:

Fichier = "C:\Documents\image.jpg"

ActiveSheet.Pictures.Insert(Fichier).Select

A chaque fois que je charge l'image prend le nom "image X" où X s'incrémente à chaque fois. De fait c'est compliquer pour ensuite derrière pouvoir gérer l'image si le nom n'est pas fixe ou choisis. Car même si je supprimer l'image manuellement ou la renomme, l'incrémentation continue.

Ma question donc la suivante: "Comment choisir le nom de l'image excel lors de l'importation?"

Bonjour à vous tous,

Je viens voir dans ce forum si qqun aurait une solution à mon problème.

Voilà, j'ai un tableau excel avec des données de contact, dans ce fichier, j'ai un userform pour faire une recherche qui indique les données principales du contact. Après, sur ce userform, j'ai un bouton qui ouvre un 2ème userform pour voir les détails en profondeur.

Dans l'ensemble j'arrive a trouver mon bonheur avec 1 ou 2 bouquins et aussi beaucoup sur des forums, mais maintenant, j'ai un souci avec des images.

Je aimerais bien que dans ce 2ème userform s'affiche des images qui se trouvent dans une autre feuille du fichier excel toujours en se référant au tableau de la feuille 1. Dans la colonne "AY"

D'avance, je vous remercie.

P.S. Dans le fichier, j'ai mis 4 images, 2 tout simplement importée et 2 autres dans des contrôles images... je ne sais pas quelle est la meilleures possibilité.

Jess

24test.xlsm (819.13 Ko)

Bonjour,

J'ai un fichier Excel "source" dont je souhaite exporter le contenu vers un fichier word "rapport".

Le fichier word "rapport" (modele_word.dotm) contient 3 signets : "titre_du_rapport", "tableau_resultats" et "graphique".

Avec le code ci-dessous je parviens à récupérer le nom du rapport depuis Excel, l'écrire dans word et l'utiliser pour le nom du fichier Word sauvegardé.

Le code permet de copier le tableau depuis Excel et le colle dans Word en tant que tableau et non en tant qu'image du tableau copié. Je n'ai pas trouvé le bon attribut pouvez vous m'aider ?

Pour la récupération du graphique, qui est dans un onglet "Graph1" j'ai essayé plusieurs pistes mais sans succès, je n'arrive pas à le sélectionner puis le copier, en tant qu'image à nouveau, au niveau du signet Word "graphique"... Est ce que quelqu'un aurait une idée ?

Les autres posts du forum m'ont donné des pistes mais je ne parviens pas à tout relier ensemble. Merci pour votre aide.

Mon code est le suivant :

Sub Export_Word()

Dim Doc_origine As String, Doc_save As String

Dim WordApp As Object

Dim WordDoc As Object

Doc_origine = ActiveWorkbook.Path & "\modele_word.dotm"

Doc_save = ActiveWorkbook.Path & "\" & Sheets("Feuil1").Range("A1").Text & ".docx"

Set WordApp = CreateObject("word.application")

Set WordDoc = WordApp.Documents.Open(Doc_origine, ReadOnly:=False)

WordApp.Visible = False

WordDoc.Bookmarks("titre_du_rapport").Range.Text = Cells(1, 1)

'pour copier le tableau dans word

ThisWorkbook.Worksheets("Feuil1").Range("C3:H22").Copy

WordDoc.Bookmarks("tableau_resultats").Range.PasteSpecial

Application.CutCopyMode = False

WordApp.Visible = True

WordDoc.Application.ActiveDocument.SaveAs Doc_save

End Sub

bonjour,

afin d’améliorer un QCM en VBA, j aurais souhaitez insérer une image d' une cellule dans un cadre image en fonction d une question qui elle se situe dans un textBox.

Si quelqu'un à une idée je suis preneur

Merci par avance

et bonne fêtes de fin d'année

Bonjour à tous,

à nouveau besoin d'un petit coup de main svp

Dans mon fichier Excel, j'ai une colonne contenant des gencods (1 gencod par ligne et par cellule).

Je souhaite que dans la colonne d'à côté, les images d'un dossier choisi et dont le nom correspond au gencod de chaque cellule s'importent automatiquement.

Exemple :

Colonne A; cellule 1 : J'ai mon gencod 1234567891234

Dans un dossier de mon PC, j'ai un fichier image nommé 1234567891234.jpg

Je souhaite que dans B1, l'image s'importe automatiquement.

A savoir que je peux avoir beaucoup de ligne.

Est-ce possible svp ?

Version d'Excel : Famille et petite entreprise 2016 WINDOWS

Bonjour le forum

Je pose mon problème

Un tableau de A à E

A = Nom (TextBox1)

B = Numéro de ligne (TextBox2)

C = Chemin de l'image (Lbl_Image)

D= Image du Nom (Image1)

E = Si Pas Image

Je souhaiterai intégré ceci dans le code di*dessous

si TextBox1 en colonne A2:A n'a pas d'images dans la feuille "Images" de son emplacement attribué de la colonne D2:D

alors charge le logo dans "Image1" de l'userform1 dans la feuille "Images" l'emplacement E2:E5 soit le nom "Pas_Images"

Private Sub CmdB_Ouvrir_Image_Click()
    ' Utiliser la propriété LoadPicture avec GetOpenFilename Méthode pour charger l'image à un contrôle d'image.
    Dim strFltr As String, strTtl As String, strFileName As String
    Dim iFltrIndx As Integer, derlign As Integer
    Dim bMltiSlct As Boolean
    Set Wsi = Sheets("Images")
    ' Valeur de consigne pour les variables à utiliser dans GetOpenFilename Méthode
    strFltr = "Tiff (*.tif;*.tiff),*.tif;*.tiff,JPEG (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap (*.bmp),*.bmp"
    iFltrIndx = 2
    strTtl = "Sélectionnez l'image du contact"
    bMltiSlct = False

    ' Déclaration ChDrive définit le lecteur en cours à C
    ChDrive "C"
    ' Déclaration ChDir définit le répertoire courant C:\Users\Public\Pictures\
    ChDir "C:\Users\Public\Pictures\"        '

    ' Utiliser GetOpenFilename Méthode pour sélectionner l'image: Logo
    strFileName = Application.GetOpenFilename(strFltr, iFltrIndx, strTtl, , bMltiSlct)
    On Error Resume Next
    If strFileName <> "False" Then
        ' Charge image pour le contrôle de l'image, en utilisant la propriété LoadPicture
        Me.Image1.Picture = LoadPicture(strFileName)
        ' Après tout changement vba doit être dit pour rafraîchir la UserForm pour que le changement semble
        Me.Repaint
        ' Etiquette légende change après l'image est chargée
        Me.Lbl_Image.Caption = strFileName
    Else
        MsgBox "Pas d'image sélectionnez!"
    End If
    ' gestionnaire d'erreurs reset
    On Error GoTo 0

End Sub

Cordialement

Bonjour,

Comme vous pourrez le voir dans le fichier joint,

Je remplis un tableau avec une "validation des données liste) et je j'affiche le résultat de la colonne suivante dans mon tableau avec en VBA

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([C4:H7], Target) Is Nothing Then
     Application.EnableEvents = False
     On Error Resume Next
     [Liste].Find(Target, LookAt:=xlWhole).Offset(, 1).Copy Target
     Application.EnableEvents = True
  End If
End Sub

Cela vas très bien avec les symboles existant, mais j'ai besoin d'utiliser des logos personnalisés sous forme d'image (ou autre si vous connaissez d'autres possibilités)

Mais avec les images j'ai deux problèmes.

1 - Lors de mon choix, je voudrais que la macro efface l'image déjà présente quand il y en déjà une, mais je ne sais pas comment faire ?

2 - Dans mon mon tableau "bilan" je sais compter les symboles, mais je ne sais pas compter les images (en H15:I18), est-ce que vous auriez une astuce pour résoudre se problème ?

Merci d'avance pour votre aide

Patrick

Bonsoir tout le monde !

Alors voici mon souci. je suis en train de faire un petit fichier permettant de répertorier sa bibliothèque.

Et je bloque au niveau de la couverture.

En effet, je souhaite qu'en cliquant sur un bouton, cela m'ouvre une fenêtre où je peux aller chercher l'image et quand j'appuie sur ok, elle s'affiche dans le champs image et quand je valide l'userform, elle s'affiche dans une cellule.

Je sèche complètement sur le comment faire :/

Merci d'avance !

287bdd-livres.xlsm (24.07 Ko)

Bonjour

Je suis à la recherche d'un code pour effacer une image qui se trouve sur ma feuille excel dans un "image (contrôle activeX)"

Mon code pour insérer une image.

'Image
Private Sub cboRace_Change()
On Error Resume Next
ActiveSheet.Image1.PictureSizeMode = fmPictureSizeModeZoom
ActiveSheet.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\dossier_Image_Chien\" & Me.cboRace & ".jpg")
If Err <> 0 Then
B = True 'Pour éviter de lancer ma MsGbox
If Not B Then MsgBox Me.cboRace & "Photo introuvable (ou mal orthographié)"
B = False 'Pour éviter de lancer ma MsGbox

End If
End Sub

Je vous remercie de votre aide

Cordialement

Max

Bonjour à tous.

Petite précision pour commencer je suis sur excel 2013 et non 2010 mais le préfixe n'est pas disponible.

Besoin d'un petit peu d'aide avec grand espoir d'en trouver ici!

Voila je vous expose mon problème.

Je développe actuellement une application pour gérer un centre équestre.

Mon classeur est composer de plusieurs base qui sont gérer via une interface créée en userform.

Je me retrouve bloquer sur un point technique pour la partie gestion des planning et des cours.

ma base des cours est constitué. A partir de cette base j'ai développer une macro qui crée sur une autre feuille le planning hebdomadaire qui lui correspond. ce tableau est dimensionner et mis en page via la macro.

Je souhaite alors faire une image de ce planning et l'afficher dans le userform.

J'ai donc penser faire un copier du range contenant le planning, récupérer l'image ainsi copier dans le presse papier et remplir avec l'attribut image d'un contrôle image sur mon userform!

D’après mes recherches cela semble possible, cependant soit cela me fait passer par un enregistrement sur le disque dur ce que je ne souhaite pas puisque cette image sera mise à jour a chaque changement par l'utilisateur, soit cela donne des macro qui me colle tout simplement l'image dans une autre feuille ou dans un contrôle image mais sur la feuille et la complexité de ces codes est au dessus de mes compétences actuelles

Pour plus de compréhension je vous joint un exemplaire de mon travail en pièce jointe.

La base des cours est sur la feuille BaseCours

Le planning est sur la feuille PlanningCours. C'est le tableau (A1:G27) que je souhaite récupérer en image

Le contrôle image de destination souhaité se trouve sur le Userform "FormCoursetPlanning" et se nomme ImagePlanning

Il ne me reste plus qu'a espérer que l'un d'entre vous saura m'aider et à vous remercier par avance!

Bonjour

je souhaiterais svp,

- 1 (moins urgent) : dans la colonne D "photo" de la feuille "liste matériel", pouvoir souder les photos aux cellules respectives afin que lorsque l'on filtre, toutes les images ne se mettent pas les unes sur les autres dans la 1ère ligne.

- 2 (très urgent) : dans la cellule A10 de la feuille "fiche" pouvoir obtenir, lorsque je choisi dans la liste déroulante en D10, la photo de l'article souhaité (pour info j'ai vu que cela était possible sans macro en définissant des noms de champs mais j'ai bloqué)

Je vous remercie d'avance pour ce coup de main

161sdfght.xlsx (91.85 Ko)

-- Mer Oct 06, 2010 10:49 pm --

pour info j'utilise office 2007

merci

Salut le forum,

je tente de résoudre un nouveau problème.

J'ai deux images dans un fichier sur une feuille. Ces deux images sont superposées. Une petite sur une plus grande. Cependant, je n'arrive pas à mettre la plus petite devant la plus grande. J'aurai plusieurs images à gérer ainsi et la seule qui ne bougera jamais, c'est la plus grande.

Merci à vous.

Bonjour ,

J'aimerais remplir une forme (ici un rectangle) avec une image qui se trouve sur mon ordinateur et que j'aimerais sélectionner.

En gros , j'aimerais un code qui permettrai d'ouvrir la fenêtre pour choisir mon image en cliquant sur la forme et d’insérer l'image DANS la forme en question.

Je précise que je n'ai pas le nom de l'image à l'avance (je veux choisir une image différente à chaque fois) et j'aimerais que l'image prenne la dimension de la forme.

J'ai vraiment cherché sur plusieurs forums mais je ne trouve rien qui corresponde à ce que je souhaite donc j'espère que cela est possible.

Si ce que je souhaite n'est pas possible je suis ouverte à tout autre proposition.

Merci !

2exemple.xlsx (9.60 Ko)

PS: je vous ai mis un exemple en pièce jointe

Bonjour,

Je souhaiterais insérer une image mais sans modifier la mise en page, l'image peu apparaître n'importe ou car le nombre de ligne ne sera jamais le même (sauf si vous avez une astuce haha)

Quand je fais ma macro "Offshore" ça modifie tout et çà me met comme ci-dessous auriez vous une astuce ou un meilleur code ?

Je vous joins le fichier si besoin

En vous remerciant

image

Bonjour,

le code suivant me permet d’insérer des photos dans des cellules excel.

Savez vous comment le modifier pour pouvoir le faire sur des cellules fusionnées ?

Public Sub insere_image()

Dim ficimg, nbImg As Byte

On Error Resume Next

ficimg = Application.GetOpenFilename(".jpg,*.jpg", , "Choisissez l'image", , True) ' choix nom du fichier

For Each cel In Selection

cel.Activate

nbImg = nbImg + 1

If Not ficimg(nbImg) = "" Then

ActiveSheet.Pictures.Insert(ficimg(nbImg)).Select ' insertion

With Selection.ShapeRange

.LockAspectRatio = False ' proportions d'origine lorsque vous la redimensionnez

.Top = ActiveCell.Top ' haut de la cellule

.Left = ActiveCell.Left ' gauche de la cellule

.Height = ActiveCell.RowHeight ' hauteur de la cellule

.Width = ActiveCell.Width ' largeur de la cellule

End With

End If

Next

End Sub

Bonjour

je joins le fichier de ce que je recherche.

Ce que j'aimerai: faire une sélection d'une valeur dans une liste déroulante et coller une image liée à cette valeur.

j'ai utilisé le gestionnaire de nom et affecté une image aux valeurs de ma liste déroulante des cellules B5 à B15.

Mais pour cela j'ai du recopier 10 fois la formule dans le gestionnaire de nom.

j'aimerai le faire en vba car le document que j'ai comporte plus de 60 cellules avec plusieurs listes déroulantes et plusieurs listes d'images et je pense plus rapide à faire en vba mais je n'arrive pas à lier mon image à la valeur de une des cellules liste déroulante.

et si je me suis mal exprimé , je souhaiterai arriver à faire la même chose en vba que dans mon exemple joint en excel :)

Un petit coup de main serait le bienvenu.

merci d'avance

Merci

Patrick

4test.xlsm (133.10 Ko)

bonjour, je cherche un code où je peux insérer des images jpg dans mon userform sans passer par un autre chemin, pour l'instant je suis obliger à chaque fois que je change de pc je dois actualiser le formulaire et changer le chemin

merci d'avance

Bonjour;

Tout est dans le titre. J'aimerais dans l'idéal qu'à l'ouverture de mon classeur excel le logo de l'entreprise apparaisse 2 secondes puis disparaisse.

Est ce possible ?

Merci d'avance

Thierry

Recherches récentes

impression imageimpression image deformeeimpressionauto openjasonsupprimer doublonsjason pmuincrementercellulleformulaire imagedate inversee vbatrie automatiquedate vbaongletgestion paiegestioncouleur ongletimage userformrange colonnesposition tableau word vba