VBA redimentionner image taille ecran

mickysor -  
Le Pingou Messages postés 12713 Date d'inscription   Statut Contributeur Dernière intervention   -
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 12713 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
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
0