VBA redimentionner image taille ecran

Fermé

mickysor - 9 mars 2013 à 16:15
Le Pingou Messages postés 12057 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 mai 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:

VBA redimentionner image taille ecran
Double ecran - Guide
Comment réduire la taille d'un fichier - Guide
Capture d'écran samsung - Guide
Ecran noir pc - Guide
Ecran d'accueil iphone - Guide

1 réponse

Réponse 1 / 1

Le Pingou Messages postés 12057 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 mai 2024 1 430
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

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

À quoi correspond 32x32 US en taille française pour un jean ?

W32 L32: correspondance entre taille US et taille française

Discussions similaires

Newsletters