[ AUTRES LOGICIELS ] Excel Image Homothétique

**Pilou** · **Pilou** Mar 17 Déc 2019 - 20:01

Cela fait au moins 30 ans que j'ai pas touché à ce bidule! rouge

Question super simple!
Peut-on redimensionner une case et que l'image qui s'y trouve suive le mouvement ?
Qu'elle se redimensionne homothétiquement...
J'ai essayé moult réglages, surfé sur le Net...ça n'a pas l'air terrible!
Quand même un peu étonné qu'un truc si simple ne coule pas de source! woah

un avis avisé ? sourire

Là on voit que c'est pas encore ça! negatif

[ AUTRES LOGICIELS ] Excel Image Homothétique Gif_horiz_excel

**simjoubert** · **simjoubert** Mar 17 Déc 2019 - 21:11

Hello
Il y a moult réglages pour l'image dans Exel
Une fois ta cellule redimensionnée clic sur l'image et Menu -> Format de l'image ->rogner->ajuster
[ AUTRES LOGICIELS ] Excel Image Homothétique Imager10

[ AUTRES LOGICIELS ] Excel Image Homothétique Imager10

**Pilou** · **Pilou** Mar 17 Déc 2019 - 22:38

Ah bravo!

J'avais un autre menu d'ouvert "Mise en forme de l'image" et pas de trace de ceci! oups

(ajuster)

Mais ce n'est pas "automatique"!

Ce qui est moins bien, c'est que cela n'a pas l'air de se faire sur une sélection multiple! (Ajuster)

Il va sûrement falloir passer par des macros...

**tenrev** · **tenrev** Mer 18 Déc 2019 - 11:12

Pilou a écrit:Il va sûrement falloir passer par des macros...

hello

j'utilise pas mal les macros , pour exporter de sketchup vers excel

j'ai d’ailleurs fait tout une macro qui permet d'exporter les composants sélectionnés sur le projet et de récupérer sur excel le descriptif , un aperçu (vignette ) du composant
la vignette est enregistrée dans sketchup au format image et insérée dans la cellule correspondante et mise à l'échelle de façon homothétique

je mets ci dessous une partie du code juste pour montrer le principe

il faut comme dans la vidéo selectionner les liens de la colonne 1 et lancer la macro
bien entendu si l'on veut tout automatiser la colonne 1 est masquée et la macro sélectionne automatiquement la colonne 1

Code:: Sub LinkToImage() For Each cel In Selection #Pour chaque cellule dans notre sélection# cel.Offset(0, 2).Select cel.Offset(0, 2).RowHeight = 100 #taille de la ligne# cel.Offset(0, 2).ColumnWidth = 40 #taille de la colonne# Set image = ActiveSheet.Pictures.Insert(cel.Value) With image .ShapeRange.LockAspectRatio = msoTrue #redimensionne l'image# .Width = cel.Offset(0, 2).Width .Height = cel.Offset(0, 2).Height .Left = cel.Offset(0, 2).Left .Top = cel.Offset(0, 2).Top End With Next cel #cellule suivante# End Sub

**Orange_o** · **Orange_o** Mer 18 Déc 2019 - 14:55

**Pilou** · **Pilou** Mer 18 Déc 2019 - 15:22

Ah bravo c'est donc possible...moyennant quelques cachets d'aspirine! bien

Je me disais 30 ans après ils ont dû faire des progrès et ce genre de chose devrait être automatique!
Et bé, il semble que non...moi qui m'était juré de ne pas retoucher à ce bidule! :rote: