copier/coller image avec des colonnes masquées

[juju44]

Bonjour à tous,

j'ai un souci avec une macro Excel qui me permet de copier une image d'une feuille vers une autre feuille, et au passage de la redimensionner en multipliant la hauteur et la largeur par des valeurs de cellules.

Jusqu'à présent je n'avais pas masquer certaines colonnes inutiles, mais dans un souci d'esthétisme de la présentation, j'ai donc masquée ces quelques colonnes.

Bref, Tout fonctionnait parfaitement, mais désormais, la largeur de l'image ne se redimensionne plus correctement après collage (pas de souci pour la hauteur).

Je pense que l'image se colle dans les colonnes masquées, et que la largeur de l'image devient 0, ce qui fait qua'près multiplication par la valeur de la cellule, elle ne se redimensionne pas correctement...

Si j'affiche de nouveau les colonnes masquées cela fonctionne...

Comment faire en sorte que le collage de l'image ne se fasse pas de manière anarchique et que celui se fasse sur mes colonnes visibles ?

voici le bout de ma macro si ca peut aider...

a = Worksheets("calculs").Range("D32").Value
   
ActiveSheet.Shapes("Image1").Delete
Worksheets("calculs").Shapes("homme").Copy
ActiveSheet.Paste
With Selection
        .Name = "Image1"
        .Width = ActiveSheet.Shapes("Image1").Width * a
        .Height = ActiveSheet.Shapes("Image1").Height * a
        .Left = ActiveSheet.Range("E280").Left
        .Top = Range("E280").Top - (.Height - Range("E280").Height)
End With

Merci d'avance

 

[Papou-net]

Re : copier/coller image avec des colonnes masquées

Bonjour juju44,

Une copie sans données confidentielle de ton fichier serait plus utile qu'un extrait de code, qui au demeurant semble correct.

A +.

Cordialement.