Accueil > Geeky, Office 15 > Auto Adjust Picture to Word Table

Auto Adjust Picture to Word Table


Hey folks,

Toi aussi tu fais une documentation en mode « un click, une copie d’écran » mais à la fin tu as 110pages voir plus J de copie d’écran et tu souhaites ajuster automatiquement la taille de chaque images à chaque case de ton tableau alors ce post est pour toi :

Je pars du principe que vous avez sélectionner toutes les images (de copie d’écran) puis insérer un tableau

Insérer ensuite une seconde colonne (a gauche ou a droite des copies d’écran) puis regler la taille, et enfin suivez le reste du post J

Sub AdjustContent()
Application.ScreenUpdating = False
Dim Tbl As Table, iShp As InlineShape
With ActiveDocument
For Each Tbl In .Tables
For Each iShp In Tbl.Range.InlineShapes
With iShp
.LockAspectRatio = msoTrue
.Height = .Range.Cells(1).Height
If .Width > .Range.Cells(1).Width Then
.Width = .Range.Cells(1).Width
End If
End With
Next
Next
End With
Application.ScreenUpdating = True
End Sub

Et voilà !

Publicités
  1. Aucun commentaire pour l’instant.
  1. No trackbacks yet.

Laisser un commentaire

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s

%d blogueurs aiment cette page :