T
Temjeh
Guest
Bonjour à tous et bravo encore pour ce site.
J'ai ceci qui fonctionne très bien pour la sauvegarde de plage en gif.
ChDir ThisWorkbook.Path
Dim i
i = InputBox(prompt:='Entrer le nom de la plage a sauvegardée ? ', Title:='New')
Dim R As Range
Application.ScreenUpdating = False
Set R = Selection
R.CopyPicture
ActiveSheet.Paste
Selection.Name = 'Temp'
With ActiveSheet.ChartObjects
With .Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export i & '.gif', 'gif'
End With
.Delete
End With
ActiveSheet.Shapes('Temp').Delete
Application.ScreenUpdating = True
Y a t il un moyen de le modifié pour la sauvegarde en .gif pour mes userform. J'avais pensé ...Set R = Userform1 mais ...pas bon.
Merci beaucoup
A+
Temjeh
Merci
J'ai ceci qui fonctionne très bien pour la sauvegarde de plage en gif.
ChDir ThisWorkbook.Path
Dim i
i = InputBox(prompt:='Entrer le nom de la plage a sauvegardée ? ', Title:='New')
Dim R As Range
Application.ScreenUpdating = False
Set R = Selection
R.CopyPicture
ActiveSheet.Paste
Selection.Name = 'Temp'
With ActiveSheet.ChartObjects
With .Add(0, 0, Selection.Width, Selection.Height).Chart
.Paste
.Export i & '.gif', 'gif'
End With
.Delete
End With
ActiveSheet.Shapes('Temp').Delete
Application.ScreenUpdating = True
Y a t il un moyen de le modifié pour la sauvegarde en .gif pour mes userform. J'avais pensé ...Set R = Userform1 mais ...pas bon.
Merci beaucoup
A+
Temjeh
Merci