VBA redimentionner image taille ecran

Question

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



Configuration: Windows XP / Chrome 25.0.1364.152

Le Pingou · Answer

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

VBA redimentionner image taille ecran

1 réponse

Votre réponse

Discussions similaires

Newsletters