Discussion :

[retraite83]

Bonjour,

je charge dans mon classeur excel des images en utilisant les fonctions : INDIRECT(RECHERCHEV...)

le chargement dynamique des photos en fonction d'un argument est parfait, mais un cadre noir pas esthétique du tout semble être ajouté par ces fonctions autour des images car le chargement des mêmes photos directement par "insérer image" ne comporte pas ce cadre.
J'ai tenté pas mal d'option excel sans succès, à part clic droit sur l'image et "style" pour choisir un cadre qui se superpose correctement au cadre inesthétique de l'image, mais j'ai constaté que le fichier grossissait de plus de 1Mo par image...ce qui me fait un classeur de 70Mo au moins et ralenti considérablement l'utilisation d'Excel
y-a-t-il une chance de parvenir à retirer le cadre par une macro VBA ?
merci

[kiki29]

Salut, il faudrait basculer en VBA : Utiliser la librairie Windows Image Acquisition en VBA

[retraite83]

Merci beaucoup je vais essayer de me débrouiller avec cette doc que je n'avais pas trouvé.

J'aimerai avoir un conseil, j'ai une macro (ci-dessous que j'ai mis un temps fou à faire, c'est ma première macro!) qui me donne satisfaction (même si elle n'est surement pas top)
Cette macro sauve mon classeur puis supprime les lignes ET image dans des lignes inutiles.

Ai-je intérêt à profiter de la boucle existante pour intervenir sur les images (en rognant peut être) ou ajouter une seconde boucle après la première pour le faire.
Autre interrogation : une autre personne va utiliser le fichier, cette personne doit-elle également charger la bibliothèque WIA ?

Merci

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
27
Sub supprlineimprimable()
Dim i As Integer
jour = Day(Now)
mois = Month(Now)
an = Year(Now)
heure = Hour(Now)
minutes = Minute(Now)
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'
' Copie du classeur sous la forme : nom_classeur_courant + Date + Heure
'
ActiveWorkbook.SaveCopyAs Filename:=Replace(ActiveWorkbook.FullName, ".xlsm", " " & jour) & "-" & mois & "-" & an & " " & heure & "h" & minutes & ".xlsm"
'
' Suppression des lignes inutiles
'
For i = 1200 To 1 Step -1
If Cells(i, 40).Value = "X" Then
    For Each shap In ActiveSheet.Shapes
    If shap.TopLeftCell.Row = i Then shap.Delete
    Next
Cells(i, 40).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub