RechercheV avec image
Résolu/Fermé
garfieldu38
Messages postés
11
Date d'inscription
mardi 22 janvier 2019
Statut
Membre
Dernière intervention
7 février 2019
-
6 févr. 2019 à 15:01
garfieldu38 Messages postés 11 Date d'inscription mardi 22 janvier 2019 Statut Membre Dernière intervention 7 février 2019 - 7 févr. 2019 à 13:10
garfieldu38 Messages postés 11 Date d'inscription mardi 22 janvier 2019 Statut Membre Dernière intervention 7 février 2019 - 7 févr. 2019 à 13:10
A voir également:
- RechercheV avec image
- Image iso - Guide
- Acronis true image - Télécharger - Sauvegarde
- Faststone image viewer - Télécharger - Visionnage & Diaporama
- Image iso windows 10 - Guide
- Comment agrandir une image - Guide
1 réponse
rEVOLV3r
Messages postés
223
Date d'inscription
jeudi 12 août 2010
Statut
Membre
Dernière intervention
21 septembre 2022
28
7 févr. 2019 à 12:14
7 févr. 2019 à 12:14
Bonjour,
La meilleure façon est la suivante : Créer un dossier avec les images nommées selon leur numéro de référence puis appeler une macro qui vient ajouter l'image du dossier correspondant au nom dans la cellule de votre fichier excel.
Macro à modifier :
Public Sub Insertion_image(ByVal ws_name As String, ByVal val As Double, ByVal r As Integer, ByVal c As Integer)
Dim file As Variant
Dim myPict As Picture
path = ActiveWorkbook.path & "\01 - Bibliothèque Images"
file = Dir(path & "\")
Do While (file <> "")
If InStr(file, val) > 0 Then
With ThisWorkbook.Sheets(ws_name).Cells(r, c)
Set myPict = .Parent.Pictures.Insert(path & "\" & file)
myPict.ShapeRange.LockAspectRatio = msoFalse
myPict.Top = .Top
myPict.Width = .Width
myPict.Height = .Height
myPict.Left = .Left
myPict.Placement = xlMove
myPict.Locked = msoFalse
End With
Exit Sub
End If
file = Dir
Loop
End Sub
La meilleure façon est la suivante : Créer un dossier avec les images nommées selon leur numéro de référence puis appeler une macro qui vient ajouter l'image du dossier correspondant au nom dans la cellule de votre fichier excel.
Macro à modifier :
Public Sub Insertion_image(ByVal ws_name As String, ByVal val As Double, ByVal r As Integer, ByVal c As Integer)
Dim file As Variant
Dim myPict As Picture
path = ActiveWorkbook.path & "\01 - Bibliothèque Images"
file = Dir(path & "\")
Do While (file <> "")
If InStr(file, val) > 0 Then
With ThisWorkbook.Sheets(ws_name).Cells(r, c)
Set myPict = .Parent.Pictures.Insert(path & "\" & file)
myPict.ShapeRange.LockAspectRatio = msoFalse
myPict.Top = .Top
myPict.Width = .Width
myPict.Height = .Height
myPict.Left = .Left
myPict.Placement = xlMove
myPict.Locked = msoFalse
End With
Exit Sub
End If
file = Dir
Loop
End Sub
7 févr. 2019 à 13:10
Sub LinkToImagebis()
For Each cel In Selection
cel.Offset(1, 0).Select
cel.Offset(1, 0).RowHeight = 30
cel.Offset(1, 0).ColumnWidth = 10
Set image = ActiveSheet.Pictures.Insert(cel.Value)
With image
.ShapeRange.LockAspectRatio = msoTrue
.Width = cel.Offset(0, 0).Width
.Height = cel.Offset(0, 0).Height
.Left = cel.Offset(0, 0).Left
.Top = cel.Offset(0, 0).Top
End With
Next cel
End Sub