Bonjour à tous,
Voila mon petit problème,
Dans ma feuille Excel, mon image varie suivant le résultat de ma textBox.
Lors de la sauvegarde, l'image est décharger pour limiter la taille du fichier.
Voici mon Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Image1 As Object
Set Image1 = ThisWorkbook.Worksheets("Feuille_Excel").Image1
Image1.Picture = Nothing
End Sub
Cela fonctionne dans le principe, mais l'image est tout de même sauvegarder avec le fichier. (Taille du fichier = 535Ko).
Si, avec un bouton de commande, je décharge mon image et que je sauvegarde ensuite, la, mon fichier ne fait plus que 34Ko.
Je ne suis pas sur d'être bien clair et j'ai retourné le problème dans tous les sens sans sucées. Impossible de "décharger l'image et ensuite sauvegarder" dans une même commande.
Si quelqu'un a une astuce, ça m’intéresse.
Voila mon petit problème,
Dans ma feuille Excel, mon image varie suivant le résultat de ma textBox.
Lors de la sauvegarde, l'image est décharger pour limiter la taille du fichier.
Voici mon Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Image1 As Object
Set Image1 = ThisWorkbook.Worksheets("Feuille_Excel").Image1
Image1.Picture = Nothing
End Sub
Cela fonctionne dans le principe, mais l'image est tout de même sauvegarder avec le fichier. (Taille du fichier = 535Ko).
Si, avec un bouton de commande, je décharge mon image et que je sauvegarde ensuite, la, mon fichier ne fait plus que 34Ko.
Je ne suis pas sur d'être bien clair et j'ai retourné le problème dans tous les sens sans sucées. Impossible de "décharger l'image et ensuite sauvegarder" dans une même commande.
Si quelqu'un a une astuce, ça m’intéresse.