Comment insérer des images d'un coup dans plusieurs cellules ?
1 réponse
Eric
J'ai créé un tableau de 64 cellules. Je voudrais insérer plusieurs images
d'un coup dans chaque cellule. Quand je sélectionne les images, elles
s'insèrent toutes dans la 1ère cellule et je dois chaque fois les faire
glisser-déposer dans les autres cellules.
Comment faire pour que les images s'insèrent directement dans les 64
cellules du tableau ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
heureux-oli
La seule solution que j'entrevoie est de passer par du VBA.
Dim oTbl as Table Dim iRow as integer dim iCol as integer
Set oTbl = ActiveDocument.Tables(1)
For iRow = 1 To oTbl.Row.count For iCol = 1 To oTbl.Column.Count oTbl.Cell(iRow, iCol).range.select Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "INCLUDEPICTURE ""c:tempange.jpg"" ", PreserveFormatting:=True Next iCol Next iRow
J'ai créé un tableau de 64 cellules. Je voudrais insérer plusieurs images d'un coup dans chaque cellule. Quand je sélectionne les images, elles s'insèrent toutes dans la 1ère cellule et je dois chaque fois les faire glisser-déposer dans les autres cellules. Comment faire pour que les images s'insèrent directement dans les 64 cellules du tableau ?
La seule solution que j'entrevoie est de passer par du VBA.
Dim oTbl as Table
Dim iRow as integer
dim iCol as integer
Set oTbl = ActiveDocument.Tables(1)
For iRow = 1 To oTbl.Row.count
For iCol = 1 To oTbl.Column.Count
oTbl.Cell(iRow, iCol).range.select
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
Text:= _
"INCLUDEPICTURE ""c:\temp\ange.jpg"" ", PreserveFormatting:=True
Next iCol
Next iRow
"Eric" <Eric@discussions.microsoft.com> a écrit dans le message de news:
B31BE9A8-40FE-4CD8-9911-2617B3A8A18E@microsoft.com...
J'ai créé un tableau de 64 cellules. Je voudrais insérer plusieurs images
d'un coup dans chaque cellule. Quand je sélectionne les images, elles
s'insèrent toutes dans la 1ère cellule et je dois chaque fois les faire
glisser-déposer dans les autres cellules.
Comment faire pour que les images s'insèrent directement dans les 64
cellules du tableau ?
La seule solution que j'entrevoie est de passer par du VBA.
Dim oTbl as Table Dim iRow as integer dim iCol as integer
Set oTbl = ActiveDocument.Tables(1)
For iRow = 1 To oTbl.Row.count For iCol = 1 To oTbl.Column.Count oTbl.Cell(iRow, iCol).range.select Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "INCLUDEPICTURE ""c:tempange.jpg"" ", PreserveFormatting:=True Next iCol Next iRow
J'ai créé un tableau de 64 cellules. Je voudrais insérer plusieurs images d'un coup dans chaque cellule. Quand je sélectionne les images, elles s'insèrent toutes dans la 1ère cellule et je dois chaque fois les faire glisser-déposer dans les autres cellules. Comment faire pour que les images s'insèrent directement dans les 64 cellules du tableau ?