Archive

Posts Tagged ‘Auto Adujst content’

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