label automatique de diagrammes [Résolu]

[Bibi218]

Bonjour à tous

Voilà, j'ai un document Word qui contient pas mal de diagrammes et de tableaux importés depuis Excel.
J'ai envie de les légender, donc j'ai fait la petite fonction suivante

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub InsertAfterFigure(ByVal tempTag As String)
    Dim figureCount As Integer, i As Integer
 
    ' The 2nd part is to count objects such as Excel Worksheets
    figureCount = ActiveDocument.Shapes.Count + ActiveDocument.InlineShapes.Count
 
    'Go to the begining of the document
    Selection.HomeKey Unit:=wdStory
    'Search for the graphics and insert temporary tags
    For i = 1 To figureCount
        Selection.GoTo What:=wdGoToGraphic, Which:=wdGoToNext, Count:=1, Name:=""
        Selection.MoveRight Unit:=wdCharacter, Count:=2
        Selection.TypeText Text:=vbCrLf
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Selection.TypeText Text:=tempTag
        Selection.ClearFormatting
    Next i
End Sub

Le problème, c'est que dans mon ActiveDocument.Shapes.Count, les TextBox sont comptées, mais qu'elles ne semblent pas prises en compte par wdGoToGraphic.

Du coup, j'aimerais savoir comment retrancher le nombre de TextBox à ActiveDocument.Shapes.Count, ou alors au pire, comment les prendre en compte dans mon GoTo T_T

Si quelqu'un a une idée merci !!!

[Heureux-oli]

Tu veux absolument faire ça en VBA ?
On peut le faire sans VBA et toutes les légendes s'y trouvent.

[Bibi218]

Dans l'absolu, j'ai hérité d'un énorme script VBA pour faire la mise en forme de documents tout simplement énormes, je me suis juste contenté de rajouter quelques fonctions, dont celle-ci.
Après, s'il y a une autre façon de faire complètement automatique, je ne suis pas contre, mais c'est juste qu'avec VBA j'ai juste une macro à exécuter par document et pas 36 manips

[Heureux-oli]

Essaie comme çà pour voir.

Code :

1
2
3
4
5
6
7
 
For i = 1 To figureCount
    Selection.ShapeRange.Select
    ActiveDocument.Shapes(i).Select
    Selection.InsertCaption Label:="Figure", TitleAutoText:="InsertCaption" & i, _
        Title:="", Position:=wdCaptionPositionBelow, ExcludeLabel:=0
Next i

[Bibi218]

Bon finalement j'ai fait un truc moche (pas taper !!!)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
    figureCount = ActiveDocument.Shapes.Count
    'Go to the begining of the document
    Selection.HomeKey Unit:=wdStory
    'Search for the tables and insert temporary tags
    For i = 1 To figureCount
    ' doesn't count text boxes
    If ActiveDocument.Shapes(i).Type = 17 Then
        figureCount = figureCount - 1
    End If
    Next i
    figureCount = figureCount + ActiveDocument.InlineShapes.Count

Je parcours tous mes shape, et si j'en trouve qui sont du type 17 (textbox), je les enleve du compte final...
Par contre, je trouve que ce 17 fait vraiment tache, on a pas des constantes du genre TextBoxType ou quelque chose ???

[ouskel'n'or]

Je n'ai pas bien tout compris mais pourquoi ne pas faire un truc tout simple

Code :

1
2
3
For Each LeShape In ActiveDocument.InlineShapes 'ou shapes
        If LeShape.Type = 5 Then i = i + 1
Next

Juste pour le principe
A+