VBA redimentionner image taille ecran

Fermé
mickysor - 9 mars 2013 à 16:15
Le Pingou Messages postés 12116 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 4 juillet 2024 - 10 mars 2013 à 22:48
Bonjour,

j'ai une macro sur excel qui me permet d'ouvrir une image dans un dossier.jusque la tout fonctionne très bien mais a chaque fois que je change de PC et que l'écran est différent les images ouvertes ne s'adaptent pas à la taille de l'écran en largeur et ça c'est assez important pour un meilleur confort visuel!!

Est t'il possible d'adapter chaque feuille ouverte à la taille de l'écran???
Voici mon code vba:

Sub ouvr()
On Error GoTo Fin

Dim img As Object

Sheets("renommage").Select
For Each img In Worksheets("renommage").Shapes
img.Delete
Next

Dim repertoire As String

repertoire = Range("macros!a1")
nom = Range("tags!a1")



Range("a1").Select
Set ima = ActiveSheet.Pictures.Insert(repertoire & nom)

ima.Name = "image"

Call zoomplus



Sheets("cp87").Select
Exit Sub
Fin::
MsgBox "le dossier de renommage est fini!!.passer au dossier suivant"




End Sub



A voir également:

1 réponse

Le Pingou Messages postés 12116 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 4 juillet 2024 1 442
Modifié par Le Pingou le 10/03/2013 à 22:49
Bonjour,
Juste au passage, essayer avec cette instruction à mettre dans votre macro à l'endroit adéquat :
With Sheets("Feuil1").Shapes("Image 1") 'noms à adapter 
.Width = ActiveWindow.Width 'Ajustement de la taille de "Image 1" 
End With



Salutations.
Le Pingou