Boutons en .gif

[Claudy]

Bonjour,
j'ai construit des boutons avec du texte dedans...
Par macro,
comment transformer ces boutons en imges .gif sur mon bureau?
Merci d'avance,
Claudy

 

[mutzik]

Re : Boutons en .gif

bonjour,

bah, fais une copie d'écran, tu rognes et pis sauvegarde
paint.net (gratuit) fais cela très bien

 

[Claudy]

Re : Boutons en .gif

Merci , c'est ce que j'ai déjà fait mais comme c'est pour mttre sur un site internet, il faut qu'elles aient toutes la meme dimension au mm pres!
A+
Claudy

 

[gilbert_RGI]

Re : Boutons en .gif

Bonjour,

Vous voulez faire une image.gif dans laquelle il y aura vos boutons que vous avez créés par macro

ces boutons ont été créés dans quoi ?

pas clair ce truc

 

[gilbert_RGI]

Re : Boutons en .gif

sinon il y a un petit logiciel qui fait ça pas mal

cliquez ici

 

[Claudy]

Re : Boutons en .gif

Non:
J'ai fait des boutons dans une page excel via "Insertion" >>>> Shapes avec couleur , effet ombre et texte inclus.
Je voudrais les exporter dans le meme dossier que mon classeur au format .gif et renommés avec les quatres premières lettres du texte .gif
Merci d'avance,
Claudy

 

[Claudy]

Re : Boutons en .gif

Désolé, mais je ne suis^pas administrateur de mon pc donc je ne saurais l'installer!
A+
Merci qd m^me,
Claudy

 

[Claudy]

Re : Boutons en .gif

Me revoilà...Presque trouvé:

Sub ExportImage()
répertoire = ThisWorkbook.Path
Set f = ActiveSheet

nomShape = "Pédalier"
Set img = f.Shapes(nomShape)
img.CopyPicture
f.ChartObjects.Add(0, 0, img.Width, img.Height).Chart.Paste
f.ChartObjects(1).Chart.Export Filename:=répertoire & "\" & "monimage.jpg", FilterName:="jpg"
f.ChartObjects(1).Delete
End Sub

Mais ça fonctionne sur une seule image "Pédalier"!
Comment fadapter pour boucler sur toutes mes images et donner comme nom les quatres premières letter?
Merci d'avance,
Claudy

 

[Claudy]

Re : Boutons en .gif

Bonjour à tous....
J'ai trouvé ceci:

Sub ExportMyPicture()

Dim MyChart As String, MyPicture As String
Dim PicWidth As Long, PicHeight As Long

Application.ScreenUpdating = False
On Error GoTo Finish

MyPicture = Selection.Name
With Selection
PicHeight = .ShapeRange.Height
PicWidth = .ShapeRange.Width
End With

Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
Selection.Border.LineStyle = 0
MyChart = Selection.Name & " " & Split(ActiveChart.Name, " ")(2)

With ActiveSheet
With .Shapes(MyChart)
.Width = PicWidth
.Height = PicHeight
End With

.Shapes(MyPicture).Copy

With ActiveChart
.ChartArea.Select
.Paste
End With

.ChartObjects(1).Chart.Export Filename:="MyPic.jpg", FilterName:="jpg"
.Shapes(MyChart).Cut
End With

Application.ScreenUpdating = True
Exit Sub

Finish:
MsgBox "You must select a picture"
End Sub


ça fonctionne à moitié:
Il me reproduit mon shape en une image MyPic.jpg

Mais pour mettre la main dessus, je dois faire une recherche sur mon pc!
Y a t'il moyen de modifier le chemin, afin que je retrouve MyPic.jpg dans le meme dossier que mon fichier.xls?
Merci d'avance,
Claudy

 

[gilbert_RGI]

Re : Boutons en .gif

Bonjour,
tu as la solution dans un de tes posts précédents

ajouter cette ligne

répertoire = ThisWorkbook.Path

et modifier celle-ci

.ChartObjects(1).Chart.Export Filename:= répertoire & "\" & "MyPic.jpg", FilterName:="jpg"

 

[Claudy]

Re : Boutons en .gif

Ok merci ça marche....
Et si je veux changer le nom : au lieu de MyPic, les quatres premières lettres écrites dans mon shape?
A+
Claudy

 

[gilbert_RGI]

Re : Boutons en .gif

toujours en prenant votre post pécédent

nomShape = "Pédalier"
Set img = f.Shapes(nomShape)
myname = left(nomShape,4)

.ChartObjects(1).Chart.Export Filename:= répertoire & "\" & myname &".jpg", FilterName:="jpg"

 

[Claudy]

Re : Boutons en .gif

Merci , mais l'histoire du pédalier j'ai abandoné
Je voudrais sélectionner d'autres shapes que le pédalier
Dans le genre:

Set img = f.Shapes(ActiveShape)
myname = left(nomShape,4)

A+, merci