Macro excel: reduction taille des images

Macro excel: reduction taille des images - VB/VBA/VBS - Programmation

Marsh Posté le 07-11-2005 à 11:05:06    

Bonjour,
 
Je travaille sous Excel 2003 et je voudrais savoir quel code je doit écrire pour arriver à ce que la macro reduise la taille des images de 60% quand on l'exécute.
Je suis débutant et ça me permettrait ainsi de me lancer gentillement dans le monde des macros!!
 
Merci

Reply

Marsh Posté le 07-11-2005 à 11:05:06   

Reply

Marsh Posté le 07-11-2005 à 18:29:17    

Salut,  
 
Est -ce qu' il s' agit seulement d' image ou de la feuille entière (Dans ce case, tu peux utiliser Zoom) ?
 
Si seulement des images, je te propose le code suivant (C' est un peu long), qui se place dans ThisWorkbook
 
Private Sub Workbook_open ()    'Ta macro s' éxécute à chaque fois que tu ouvre ton fichier
 
On Error GoTo 1         'Arrête le programme si une erreur est intervenue
Range("A1" ).Select       '1er cellule de la colonne A est séléctionner
 
   Dim cpt As Integer       'En boucle
   cpt = 1
   Do
   DoEvents                  'En cas de bugs, tu peux ansi arrêter ta macro
   
   SendKeys "{Enter}", True      'Descend d' une cellule
   
   If ActiveCell = "" Then           'Si la cellule est vide, la boucle s' arrête
   cpt = cpt - 1
   End If
 
   ActiveSheet.Shapes(ActiveCell).Select    'L' objet dont le nom correspondt au contenu de la cellule est séléctionner
 
    Selection.ShapeRange.ScaleWidth 0.75, msoFalse,  msoScaleFromTopLeft     'Réduction sur la longueur
 
    Selection.ShapeRange.ScaleHeight 0.62, msoFalse, msoScaleFromBottomRight  'Réduction sur la largeur
 
 
    ActiveCell.Select    'Séléction de la cellule active
Loop Until cpt = 0
1
 
Attention!  
 
Il faut que tu établisse une liste de toute tes images à partir de la cellule A2
 
Si ça te convient pas, il y a sans doute mieux.
 
Aurevoir

Reply

Marsh Posté le 07-11-2005 à 19:29:57    

salut tiludo
 
Sinon voilà un lien vers un post qui pourra t'interesser
http://forum.hardware.fr/hardwaref [...] 8401-1.htm
@+


---------------
Je bidouillle c'est sur... Mais j'essaye de faire en sorte que ça marche ;-)
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed