Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Régler taille d'un objet

Régler taille d'un objet

18 réponses
Avatar
Emcy
bonjours,

j'ai fait une macro à partir d'excel qui insère un objet dans word
quelq'un sait-il comment faire pour régler la hauteur et la largeur de
l'objet ?

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la
nomenclature Word

'insére plan ref dessus
WordFile.Range(Start:=3, End:=3).Select
Set NewTextBox =
WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:=35, Top:=72, Width:=30, Height:=30) 'insére zone de text
NewTextBox.TextFrame.TextRange.Select
Set PowerObj =
WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",
Filename:="C:\AA Travail CED\CIRCUIT\CIRCUIT en
cours\09000-09999\09050-09059\09051\09051 53\09051 53 B1\EQ01\PCB-09051 53
B1 CMR-EQ01(ref).pcb", LinkToFile:=False, DisplayAsIcon:=False) 'insère mon
objet

PowerObj.Width = 650 'ça marche pas
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
1 2
Avatar
Pascal Engelmajer
Salut,
l'objet est inserré dans le TextBox ?
ou à la place ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

Regardes plustot pour "InlineShapes"
tout ce que j'ai écris fonctionne à part la ligne : "PowerObj.Width = 650
'ça marche pas"

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
la propriété Selection n'a pas de méthode .AddOLEObject
NewTextBox.TextFrame.TextRange.Select

Set PowerObj





=WordObj.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design", _
.../...
PowerObj.Width= 650

--



Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

Le commande "Selection" désigne l'objet selectionné en cours. dans mon
cas


c'est la zone de text que j'ai juste crée avant
On aurait pu remplacer le "Selection" par
"NewTextBox.TextFrame.TextRange"


mais word n'accepte pas cette méthode (on ai obligé de passer par les
commandes "Select" et "Selection" : du moin c'est ce que j'ai cru
comprendre)


"Pascal Engelmajer" a écrit dans
le



message de news:ev4e$
Salut,




WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


à quoi sert le Selection ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

ça marche .... pas :-(

"Pascal Engelmajer" a écrit
dans





le
message de news:%
Salut Emcy,
essaie à tout hasard
PowerObj.Object.Width ...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

bonjours,

j'ai fait une macro à partir d'excel qui insère un objet dans
word






quelq'un sait-il comment faire pour régler la hauteur et la
largeur





de
l'objet ?

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile = WordObj.Documents.Open(NomenclatureWord)
'ouvre







la
nomenclature Word

'insére plan ref dessus
WordFile.Range(Start:=3, End:=3).Select
Set NewTextBox > > > > > > >
WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,




Left:5, Top:r, Width:0, Height:0) 'insére zone de text
NewTextBox.TextFrame.TextRange.Select
Set PowerObj > > > > > > >






WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


Filename:="C:AA Travail CEDCIRCUITCIRCUIT en
cours9000-099999050-0905990519051 539051 53
B1EQ01PCB-09051



53
B1 CMR-EQ01(ref).pcb", LinkToFile:úlse,
DisplayAsIcon:úlse)







'insère
mon
objet

PowerObj.Width = 650 'ça marche pas




























Avatar
Emcy
...à l'interieur

"Pascal Engelmajer" a écrit dans le
message de news:u$
Salut,
l'objet est inserré dans le TextBox ?
ou à la place ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

Regardes plustot pour "InlineShapes"
tout ce que j'ai écris fonctionne à part la ligne : "PowerObj.Width 650
'ça marche pas"

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
la propriété Selection n'a pas de méthode .AddOLEObject
NewTextBox.TextFrame.TextRange.Select

Set PowerObj





=WordObj.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design", _
.../...
PowerObj.Width= 650

--



Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

Le commande "Selection" désigne l'objet selectionné en cours. dans
mon




cas
c'est la zone de text que j'ai juste crée avant
On aurait pu remplacer le "Selection" par
"NewTextBox.TextFrame.TextRange"


mais word n'accepte pas cette méthode (on ai obligé de passer par
les




commandes "Select" et "Selection" : du moin c'est ce que j'ai cru
comprendre)


"Pascal Engelmajer" a écrit dans
le



message de news:ev4e$
Salut,







WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


à quoi sert le Selection ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

ça marche .... pas :-(

"Pascal Engelmajer" a écrit
dans





le
message de news:%
Salut Emcy,
essaie à tout hasard
PowerObj.Object.Width ...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou
il







va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

bonjours,

j'ai fait une macro à partir d'excel qui insère un objet
dans








word
quelq'un sait-il comment faire pour régler la hauteur et la
largeur





de
l'objet ?

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile = WordObj.Documents.Open(NomenclatureWord)
'ouvre







la
nomenclature Word

'insére plan ref dessus
WordFile.Range(Start:=3, End:=3).Select
Set NewTextBox > > > > > > > >





WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,




Left:5, Top:r, Width:0, Height:0) 'insére zone de
text








NewTextBox.TextFrame.TextRange.Select
Set PowerObj > > > > > > > >









WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


Filename:="C:AA Travail CEDCIRCUITCIRCUIT en
cours9000-099999050-0905990519051 539051 53
B1EQ01PCB-09051



53
B1 CMR-EQ01(ref).pcb", LinkToFile:úlse,
DisplayAsIcon:úlse)







'insère
mon
objet

PowerObj.Width = 650 'ça marche pas
































Avatar
Emcy
je viens de faire une macro qui insère un objet de type image pour que tu
puisses essayer
le problème est que là ça marche : est-ce que ça veux dire que je ne peux
pas agrandir par macro mon objet (alors que manuellement, ça marche) ?

Sub Word2()

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile = WordObj.Documents.Add 'Crée Fichier Word

Set NewTextBox WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:(.5, Top:r, Width:@0, Height:90)
NewTextBox.TextFrame.TextRange.Select
Set ImgObj WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="Paint.Picture",
Filename:="C:WINDOWSZapotec.bmp", LinkToFile:úlse, DisplayAsIcon:úlse)

ImgObj.Width = 400

Set NewTextBox = Nothing
Set WordFile = Nothing
Set WordObj = Nothing

End Sub

"Emcy" a écrit dans le message de
news:
...à l'interieur

"Pascal Engelmajer" a écrit dans le
message de news:u$
Salut,
l'objet est inserré dans le TextBox ?
ou à la place ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

Regardes plustot pour "InlineShapes"
tout ce que j'ai écris fonctionne à part la ligne : "PowerObj.Width > 650
'ça marche pas"

"Pascal Engelmajer" a écrit dans
le



message de news:
Salut,
la propriété Selection n'a pas de méthode .AddOLEObject
NewTextBox.TextFrame.TextRange.Select

Set PowerObj





=WordObj.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design", _
.../...
PowerObj.Width= 650

--



Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

Le commande "Selection" désigne l'objet selectionné en cours. dans
mon




cas
c'est la zone de text que j'ai juste crée avant
On aurait pu remplacer le "Selection" par
"NewTextBox.TextFrame.TextRange"


mais word n'accepte pas cette méthode (on ai obligé de passer par
les




commandes "Select" et "Selection" : du moin c'est ce que j'ai cru
comprendre)


"Pascal Engelmajer" a écrit
dans





le
message de news:ev4e$
Salut,







WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


à quoi sert le Selection ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

ça marche .... pas :-(

"Pascal Engelmajer" a
écrit







dans
le
message de news:%
Salut Emcy,
essaie à tout hasard
PowerObj.Object.Width ...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas
ou








il
va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de
news:









bonjours,

j'ai fait une macro à partir d'excel qui insère un objet
dans








word
quelq'un sait-il comment faire pour régler la hauteur et
la









largeur
de
l'objet ?

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile = WordObj.Documents.Open(NomenclatureWord)
'ouvre







la
nomenclature Word

'insére plan ref dessus
WordFile.Range(Start:=3, End:=3).Select
Set NewTextBox > > > > > > > > >





WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,




Left:5, Top:r, Width:0, Height:0) 'insére zone de
text








NewTextBox.TextFrame.TextRange.Select
Set PowerObj > > > > > > > > >









WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


Filename:="C:AA Travail CEDCIRCUITCIRCUIT en
cours9000-099999050-0905990519051 539051 53
B1EQ01PCB-09051



53
B1 CMR-EQ01(ref).pcb", LinkToFile:úlse,
DisplayAsIcon:úlse)







'insère
mon
objet

PowerObj.Width = 650 'ça marche pas




































Avatar
Emcy
je viens de faire une macro qui insère un objet de type image pour que tu
puisses essayer
le problème est que là ça marche : est-ce que ça veux dire que je ne peux
pas agrandir par macro mon objet (alors que manuellement, ça marche) ?

Sub Word2()

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile = WordObj.Documents.Add 'Crée Fichier Word

Set NewTextBox WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:(.5, Top:r, Width:@0, Height:90)
NewTextBox.TextFrame.TextRange.Select
Set ImgObj WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="Paint.Picture",
Filename:="C:WINDOWSZapotec.bmp", LinkToFile:úlse, DisplayAsIcon:úlse)

ImgObj.Width = 400

Set NewTextBox = Nothing
Set WordFile = Nothing
Set WordObj = Nothing

End Sub
Avatar
Pascal Engelmajer
Salut,
PowerObj.Width
devrait fonctionner si ...
la propriété Width est-elle une propriété de l'objet que tu insères ?
car j'ai testé avec divers objets et ça marche
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

je viens de faire une macro qui insère un objet de type image pour que tu
puisses essayer
le problème est que là ça marche : est-ce que ça veux dire que je ne peux
pas agrandir par macro mon objet (alors que manuellement, ça marche) ?

Sub Word2()

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile = WordObj.Documents.Add 'Crée Fichier Word

Set NewTextBox > WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:(.5, Top:r, Width:@0, Height:90)
NewTextBox.TextFrame.TextRange.Select
Set ImgObj > WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="Paint.Picture",
Filename:="C:WINDOWSZapotec.bmp", LinkToFile:úlse,
DisplayAsIcon:úlse)


ImgObj.Width = 400

Set NewTextBox = Nothing
Set WordFile = Nothing
Set WordObj = Nothing

End Sub

"Emcy" a écrit dans le message de
news:
...à l'interieur

"Pascal Engelmajer" a écrit dans le
message de news:u$
Salut,
l'objet est inserré dans le TextBox ?
ou à la place ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

Regardes plustot pour "InlineShapes"
tout ce que j'ai écris fonctionne à part la ligne : "PowerObj.Width
650


'ça marche pas"

"Pascal Engelmajer" a écrit dans
le



message de news:
Salut,
la propriété Selection n'a pas de méthode .AddOLEObject
NewTextBox.TextFrame.TextRange.Select

Set PowerObj





=WordObj.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design", _
.../...
PowerObj.Width= 650

--



Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

Le commande "Selection" désigne l'objet selectionné en cours.
dans






mon
cas
c'est la zone de text que j'ai juste crée avant
On aurait pu remplacer le "Selection" par
"NewTextBox.TextFrame.TextRange"


mais word n'accepte pas cette méthode (on ai obligé de passer
par






les
commandes "Select" et "Selection" : du moin c'est ce que j'ai
cru






comprendre)


"Pascal Engelmajer" a écrit
dans





le
message de news:ev4e$
Salut,










WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


à quoi sert le Selection ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou
il







va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

ça marche .... pas :-(

"Pascal Engelmajer" a
écrit







dans
le
message de news:%
Salut Emcy,
essaie à tout hasard
PowerObj.Object.Width ...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas
ou








il
va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de
news:









bonjours,

j'ai fait une macro à partir d'excel qui insère un objet
dans








word
quelq'un sait-il comment faire pour régler la hauteur et
la









largeur
de
l'objet ?

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile = WordObj.Documents.Open(NomenclatureWord)
'ouvre







la
nomenclature Word

'insére plan ref dessus
WordFile.Range(Start:=3, End:=3).Select
Set NewTextBox > > > > > > > > > >





WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,




Left:5, Top:r, Width:0, Height:0) 'insére zone
de










text
NewTextBox.TextFrame.TextRange.Select
Set PowerObj > > > > > > > > > >












WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


Filename:="C:AA Travail CEDCIRCUITCIRCUIT en
cours9000-099999050-0905990519051 539051 53
B1EQ01PCB-09051



53
B1 CMR-EQ01(ref).pcb", LinkToFile:úlse,
DisplayAsIcon:úlse)







'insère
mon
objet

PowerObj.Width = 650 'ça marche pas








































Avatar
Emcy
j'ai réussit à le faire fonctionner dans un nouveau fichier Excel mais j'ai
beau comparer les deux programme, je ne vois pas ou ça cloche.
est-ce que tu vois l'erreur ?

programme qui marche :
Sub Word2()

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True

Set WordFile = WordObj.Documents.Open("C:AA Travail CEDMes documentsCAP
0805.doc") 'ouvre document word
'Set WordFile = WordObj.Documents.Add 'Crée Fichier Word

Set NewTextBox WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:(.5, Top:r, Width:@0, Height:90)
NewTextBox.TextFrame.TextRange.Select
Set ImgObj WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",
Filename:="C:AA Travail CEDCIRCUITCIRCUIT en
cours9000-099999050-0905990519051 539051 53 B1PCB-09051 53 B1
CMR-NU.pcb", LinkToFile:úlse, DisplayAsIcon:úlse)

ImgObj.Width = 1000

Set NewTextBox = Nothing
Set WordFile = Nothing
Set WordObj = Nothing

End Sub


programme (complet) qui marche pas (ça bloque à la ligne witdh):

Public NomenclatureWord As String
Public RepertoireTravail As String
Public RepertoireCAM As String

Sub OuvrirIni(Optional a As Boolean)

Dim i As Integer
Dim MaLigne As String

Open "C:ConfigNomenclature.ini" For Input As #1

i = 1

Do Until EOF(1)
Input #1, MaLigne

If i = 2 Then
NomenclatureWord = Right(MaLigne, Len(MaLigne) - 20)
End If

If i = 5 Then
RepertoireTravail = Right(MaLigne, Len(MaLigne) - 21)
End If

If i = 6 Then
RepertoireCAM = Right(MaLigne, Len(MaLigne) - 17)
End If

i = i + 1
Loop
Close #1

End Sub

Sub Word()

'Dim WordObj As Object
'Dim WordFile As Object
'Dim NewTextBox As Object
'Dim NewTable As Object
'Dim aTable As Object
'Dim aPage As Integer
'Dim NbTable As Integer
'Dim NbLigne As Integer
'Dim NbLigneOld As Integer
'Dim NbCellules As Integer
'Dim FirstPage As Boolean
'Dim PowerObj As Object

Call OuvrirIni

FirstPage = True

'On Error Resume Next
Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la
nomenclature Word

'insére plan ref dessus
WordFile.Range(Start:=3, End:=3).Select
Set NewTextBox WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:5, Top:r, Width:0, Height:0)
NewTextBox.TextFrame.TextRange.Select
Set PowerObj WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",
Filename:="C:AA Travail CEDCIRCUITCIRCUIT en
cours9000-099999050-0905990519051 539051 53 B1PCB-09051 53 B1
CMR-NU.pcb", LinkToFile:úlse, DisplayAsIcon:úlse)
PowerObj.Witdh = 600
NewTextBox.Fill.Visible = 0 'rend invisible le remplissage de la zone de
text
NewTextBox.Line.Visible = 0 'rend invisible les bordures de la zone de text

Set NewTextBox = Nothing
Set WordFile = Nothing
Set WordObj = Nothing

End Sub

Function CompteNombreCellules(MaSelection As Range) As Integer 'macro très
fortement inspirée d'une macro de Rv

Dim objCell As Range
Dim objRange As Range
Dim lngTabRange() As Range
Dim lngMaxIndTabRange As Long
Dim lngIndTabRange As Long

Dim lngNbrCell As Long
Dim booTrouve As Boolean

' Init
lngMaxIndTabRange = 0
lngNbrCell = 0

' Récup de la sélection
'Set objRange = Application.Selection

' Parcours des cellules de la sélection

For Each objCell In MaSelection

' Si on est sur une cellule fusionnée
If objCell.MergeCells Then

' On recherche dans le tableau des fusions si la zone existe
déjà
booTrouve = False
For lngIndTabRange = 1 To lngMaxIndTabRange
If objCell.MergeArea.Address lngTabRange(lngIndTabRange).Address Then
booTrouve = True
Exit For
End If
Next

' Si on ne trouve pas cette zone dans le tableau des zones
fusionnées
If Not booTrouve Then
' On ajoute la zone au tableau
lngMaxIndTabRange = lngMaxIndTabRange + 1
ReDim Preserve lngTabRange(lngMaxIndTabRange)
Set lngTabRange(lngMaxIndTabRange) = objCell.MergeArea
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
' Si on est pas sur une cellule fusionnée
Else
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
Next

'MsgBox "Résultat : " & lngNbrCell
CompteNombreCellules = lngNbrCell

End Function






"Pascal Engelmajer" a écrit dans le
message de news:uV$
Salut,
PowerObj.Width
devrait fonctionner si ...
la propriété Width est-elle une propriété de l'objet que tu insères ?
car j'ai testé avec divers objets et ça marche
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

je viens de faire une macro qui insère un objet de type image pour que
tu


puisses essayer
le problème est que là ça marche : est-ce que ça veux dire que je ne
peux


pas agrandir par macro mon objet (alors que manuellement, ça marche) ?

Sub Word2()

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile = WordObj.Documents.Add 'Crée Fichier Word

Set NewTextBox > > WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:(.5, Top:r, Width:@0, Height:90)
NewTextBox.TextFrame.TextRange.Select
Set ImgObj > > WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="Paint.Picture",
Filename:="C:WINDOWSZapotec.bmp", LinkToFile:úlse,
DisplayAsIcon:úlse)


ImgObj.Width = 400

Set NewTextBox = Nothing
Set WordFile = Nothing
Set WordObj = Nothing

End Sub

"Emcy" a écrit dans le message de
news:
...à l'interieur

"Pascal Engelmajer" a écrit dans
le



message de news:u$
Salut,
l'objet est inserré dans le TextBox ?
ou à la place ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

Regardes plustot pour "InlineShapes"
tout ce que j'ai écris fonctionne à part la ligne :
"PowerObj.Width





650
'ça marche pas"

"Pascal Engelmajer" a écrit
dans





le
message de news:
Salut,
la propriété Selection n'a pas de méthode .AddOLEObject
NewTextBox.TextFrame.TextRange.Select

Set PowerObj





=WordObj.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",
_






.../...
PowerObj.Width= 650

--



Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

Le commande "Selection" désigne l'objet selectionné en cours.
dans






mon
cas
c'est la zone de text que j'ai juste crée avant
On aurait pu remplacer le "Selection" par
"NewTextBox.TextFrame.TextRange"


mais word n'accepte pas cette méthode (on ai obligé de passer
par






les
commandes "Select" et "Selection" : du moin c'est ce que j'ai
cru






comprendre)


"Pascal Engelmajer" a
écrit







dans
le
message de news:ev4e$
Salut,










WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


à quoi sert le Selection ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas
ou








il
va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de
news:









ça marche .... pas :-(

"Pascal Engelmajer" a
écrit







dans
le
message de news:%
Salut Emcy,
essaie à tout hasard
PowerObj.Object.Width ...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas










ou
il
va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de
news:









bonjours,

j'ai fait une macro à partir d'excel qui insère un
objet











dans
word
quelq'un sait-il comment faire pour régler la hauteur
et











la
largeur
de
l'objet ?

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile WordObj.Documents.Open(NomenclatureWord)
'ouvre







la
nomenclature Word

'insére plan ref dessus
WordFile.Range(Start:=3, End:=3).Select
Set NewTextBox > > > > > > > > > > >





WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,




Left:5, Top:r, Width:0, Height:0) 'insére zone
de










text
NewTextBox.TextFrame.TextRange.Select
Set PowerObj > > > > > > > > > > >












WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


Filename:="C:AA Travail CEDCIRCUITCIRCUIT en
cours9000-099999050-0905990519051 539051 53
B1EQ01PCB-09051



53
B1 CMR-EQ01(ref).pcb", LinkToFile:úlse,
DisplayAsIcon:úlse)







'insère
mon
objet

PowerObj.Width = 650 'ça marche pas












































Avatar
Pascal Engelmajer
Salut,
PowerObj.Witdh = 600
????

c'est mieux !!!
PowerObj.Width = 600

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

j'ai réussit à le faire fonctionner dans un nouveau fichier Excel mais
j'ai

beau comparer les deux programme, je ne vois pas ou ça cloche.
est-ce que tu vois l'erreur ?

programme qui marche :
Sub Word2()

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True

Set WordFile = WordObj.Documents.Open("C:AA Travail CEDMes documentsCAP
0805.doc") 'ouvre document word
'Set WordFile = WordObj.Documents.Add 'Crée Fichier Word

Set NewTextBox > WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:(.5, Top:r, Width:@0, Height:90)
NewTextBox.TextFrame.TextRange.Select
Set ImgObj > WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",
Filename:="C:AA Travail CEDCIRCUITCIRCUIT en
cours9000-099999050-0905990519051 539051 53 B1PCB-09051 53 B1
CMR-NU.pcb", LinkToFile:úlse, DisplayAsIcon:úlse)

ImgObj.Width = 1000

Set NewTextBox = Nothing
Set WordFile = Nothing
Set WordObj = Nothing

End Sub


programme (complet) qui marche pas (ça bloque à la ligne witdh):

Public NomenclatureWord As String
Public RepertoireTravail As String
Public RepertoireCAM As String

Sub OuvrirIni(Optional a As Boolean)

Dim i As Integer
Dim MaLigne As String

Open "C:ConfigNomenclature.ini" For Input As #1

i = 1

Do Until EOF(1)
Input #1, MaLigne

If i = 2 Then
NomenclatureWord = Right(MaLigne, Len(MaLigne) - 20)
End If

If i = 5 Then
RepertoireTravail = Right(MaLigne, Len(MaLigne) - 21)
End If

If i = 6 Then
RepertoireCAM = Right(MaLigne, Len(MaLigne) - 17)
End If

i = i + 1
Loop
Close #1

End Sub

Sub Word()

'Dim WordObj As Object
'Dim WordFile As Object
'Dim NewTextBox As Object
'Dim NewTable As Object
'Dim aTable As Object
'Dim aPage As Integer
'Dim NbTable As Integer
'Dim NbLigne As Integer
'Dim NbLigneOld As Integer
'Dim NbCellules As Integer
'Dim FirstPage As Boolean
'Dim PowerObj As Object

Call OuvrirIni

FirstPage = True

'On Error Resume Next
Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la
nomenclature Word

'insére plan ref dessus
WordFile.Range(Start:=3, End:=3).Select
Set NewTextBox > WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:5, Top:r, Width:0, Height:0)
NewTextBox.TextFrame.TextRange.Select
Set PowerObj > WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",
Filename:="C:AA Travail CEDCIRCUITCIRCUIT en
cours9000-099999050-0905990519051 539051 53 B1PCB-09051 53 B1
CMR-NU.pcb", LinkToFile:úlse, DisplayAsIcon:úlse)
PowerObj.Witdh = 600
NewTextBox.Fill.Visible = 0 'rend invisible le remplissage de la zone de
text
NewTextBox.Line.Visible = 0 'rend invisible les bordures de la zone de
text


Set NewTextBox = Nothing
Set WordFile = Nothing
Set WordObj = Nothing

End Sub

Function CompteNombreCellules(MaSelection As Range) As Integer 'macro très
fortement inspirée d'une macro de Rv

Dim objCell As Range
Dim objRange As Range
Dim lngTabRange() As Range
Dim lngMaxIndTabRange As Long
Dim lngIndTabRange As Long

Dim lngNbrCell As Long
Dim booTrouve As Boolean

' Init
lngMaxIndTabRange = 0
lngNbrCell = 0

' Récup de la sélection
'Set objRange = Application.Selection

' Parcours des cellules de la sélection

For Each objCell In MaSelection

' Si on est sur une cellule fusionnée
If objCell.MergeCells Then

' On recherche dans le tableau des fusions si la zone existe
déjà
booTrouve = False
For lngIndTabRange = 1 To lngMaxIndTabRange
If objCell.MergeArea.Address > lngTabRange(lngIndTabRange).Address Then
booTrouve = True
Exit For
End If
Next

' Si on ne trouve pas cette zone dans le tableau des zones
fusionnées
If Not booTrouve Then
' On ajoute la zone au tableau
lngMaxIndTabRange = lngMaxIndTabRange + 1
ReDim Preserve lngTabRange(lngMaxIndTabRange)
Set lngTabRange(lngMaxIndTabRange) = objCell.MergeArea
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
' Si on est pas sur une cellule fusionnée
Else
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
Next

'MsgBox "Résultat : " & lngNbrCell
CompteNombreCellules = lngNbrCell

End Function






"Pascal Engelmajer" a écrit dans le
message de news:uV$
Salut,
PowerObj.Width
devrait fonctionner si ...
la propriété Width est-elle une propriété de l'objet que tu insères ?
car j'ai testé avec divers objets et ça marche
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

je viens de faire une macro qui insère un objet de type image pour que
tu


puisses essayer
le problème est que là ça marche : est-ce que ça veux dire que je ne
peux


pas agrandir par macro mon objet (alors que manuellement, ça marche) ?

Sub Word2()

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile = WordObj.Documents.Add 'Crée Fichier Word

Set NewTextBox > > > WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:(.5, Top:r, Width:@0, Height:90)
NewTextBox.TextFrame.TextRange.Select
Set ImgObj > > >
WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="Paint.Picture",



Filename:="C:WINDOWSZapotec.bmp", LinkToFile:úlse,
DisplayAsIcon:úlse)


ImgObj.Width = 400

Set NewTextBox = Nothing
Set WordFile = Nothing
Set WordObj = Nothing

End Sub

"Emcy" a écrit dans le message de
news:
...à l'interieur

"Pascal Engelmajer" a écrit dans
le



message de news:u$
Salut,
l'objet est inserré dans le TextBox ?
ou à la place ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

Regardes plustot pour "InlineShapes"
tout ce que j'ai écris fonctionne à part la ligne :
"PowerObj.Width





650
'ça marche pas"

"Pascal Engelmajer" a écrit
dans





le
message de news:
Salut,
la propriété Selection n'a pas de méthode .AddOLEObject
NewTextBox.TextFrame.TextRange.Select

Set PowerObj






=WordObj.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",







_
.../...
PowerObj.Width= 650

--



Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou
il







va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

Le commande "Selection" désigne l'objet selectionné en
cours.








dans
mon
cas
c'est la zone de text que j'ai juste crée avant
On aurait pu remplacer le "Selection" par
"NewTextBox.TextFrame.TextRange"


mais word n'accepte pas cette méthode (on ai obligé de
passer








par
les
commandes "Select" et "Selection" : du moin c'est ce que
j'ai








cru
comprendre)


"Pascal Engelmajer" a
écrit







dans
le
message de news:ev4e$
Salut,













WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


à quoi sert le Selection ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas
ou








il
va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de
news:









ça marche .... pas :-(

"Pascal Engelmajer"
a










écrit
dans
le
message de
news:%










Salut Emcy,
essaie à tout hasard
PowerObj.Object.Width ...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas










ou
il
va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message
de











news:

bonjours,

j'ai fait une macro à partir d'excel qui insère un
objet











dans
word
quelq'un sait-il comment faire pour régler la
hauteur












et
la
largeur
de
l'objet ?

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile > WordObj.Documents.Open(NomenclatureWord)
'ouvre







la
nomenclature Word

'insére plan ref dessus
WordFile.Range(Start:=3, End:=3).Select
Set NewTextBox > > > > > > > > > > > >










WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,




Left:5, Top:r, Width:0, Height:0) 'insére
zone












de
text
NewTextBox.TextFrame.TextRange.Select
Set PowerObj > > > > > > > > > > > >















WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


Filename:="C:AA Travail CEDCIRCUITCIRCUIT en
cours9000-099999050-0905990519051 539051
53












B1EQ01PCB-09051
53
B1 CMR-EQ01(ref).pcb", LinkToFile:úlse,
DisplayAsIcon:úlse)







'insère
mon
objet

PowerObj.Width = 650 'ça marche pas
















































Avatar
Emcy
Oh la grosse bourde.... merci beaucoup

"Pascal Engelmajer" a écrit dans le
message de news:
Salut,
PowerObj.Witdh = 600
????

c'est mieux !!!
PowerObj.Width = 600

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

j'ai réussit à le faire fonctionner dans un nouveau fichier Excel mais
j'ai

beau comparer les deux programme, je ne vois pas ou ça cloche.
est-ce que tu vois l'erreur ?

programme qui marche :
Sub Word2()

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True

Set WordFile = WordObj.Documents.Open("C:AA Travail CEDMes
documentsCAP


0805.doc") 'ouvre document word
'Set WordFile = WordObj.Documents.Add 'Crée Fichier Word

Set NewTextBox > > WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:(.5, Top:r, Width:@0, Height:90)
NewTextBox.TextFrame.TextRange.Select
Set ImgObj > >
WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


Filename:="C:AA Travail CEDCIRCUITCIRCUIT en
cours9000-099999050-0905990519051 539051 53 B1PCB-09051 53 B1
CMR-NU.pcb", LinkToFile:úlse, DisplayAsIcon:úlse)

ImgObj.Width = 1000

Set NewTextBox = Nothing
Set WordFile = Nothing
Set WordObj = Nothing

End Sub


programme (complet) qui marche pas (ça bloque à la ligne witdh):

Public NomenclatureWord As String
Public RepertoireTravail As String
Public RepertoireCAM As String

Sub OuvrirIni(Optional a As Boolean)

Dim i As Integer
Dim MaLigne As String

Open "C:ConfigNomenclature.ini" For Input As #1

i = 1

Do Until EOF(1)
Input #1, MaLigne

If i = 2 Then
NomenclatureWord = Right(MaLigne, Len(MaLigne) - 20)
End If

If i = 5 Then
RepertoireTravail = Right(MaLigne, Len(MaLigne) - 21)
End If

If i = 6 Then
RepertoireCAM = Right(MaLigne, Len(MaLigne) - 17)
End If

i = i + 1
Loop
Close #1

End Sub

Sub Word()

'Dim WordObj As Object
'Dim WordFile As Object
'Dim NewTextBox As Object
'Dim NewTable As Object
'Dim aTable As Object
'Dim aPage As Integer
'Dim NbTable As Integer
'Dim NbLigne As Integer
'Dim NbLigneOld As Integer
'Dim NbCellules As Integer
'Dim FirstPage As Boolean
'Dim PowerObj As Object

Call OuvrirIni

FirstPage = True

'On Error Resume Next
Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la
nomenclature Word

'insére plan ref dessus
WordFile.Range(Start:=3, End:=3).Select
Set NewTextBox > > WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:5, Top:r, Width:0, Height:0)
NewTextBox.TextFrame.TextRange.Select
Set PowerObj > >
WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


Filename:="C:AA Travail CEDCIRCUITCIRCUIT en
cours9000-099999050-0905990519051 539051 53 B1PCB-09051 53 B1
CMR-NU.pcb", LinkToFile:úlse, DisplayAsIcon:úlse)
PowerObj.Witdh = 600
NewTextBox.Fill.Visible = 0 'rend invisible le remplissage de la zone de
text
NewTextBox.Line.Visible = 0 'rend invisible les bordures de la zone de
text


Set NewTextBox = Nothing
Set WordFile = Nothing
Set WordObj = Nothing

End Sub

Function CompteNombreCellules(MaSelection As Range) As Integer 'macro
très


fortement inspirée d'une macro de Rv

Dim objCell As Range
Dim objRange As Range
Dim lngTabRange() As Range
Dim lngMaxIndTabRange As Long
Dim lngIndTabRange As Long

Dim lngNbrCell As Long
Dim booTrouve As Boolean

' Init
lngMaxIndTabRange = 0
lngNbrCell = 0

' Récup de la sélection
'Set objRange = Application.Selection

' Parcours des cellules de la sélection

For Each objCell In MaSelection

' Si on est sur une cellule fusionnée
If objCell.MergeCells Then

' On recherche dans le tableau des fusions si la zone existe
déjà
booTrouve = False
For lngIndTabRange = 1 To lngMaxIndTabRange
If objCell.MergeArea.Address > > lngTabRange(lngIndTabRange).Address Then
booTrouve = True
Exit For
End If
Next

' Si on ne trouve pas cette zone dans le tableau des zones
fusionnées
If Not booTrouve Then
' On ajoute la zone au tableau
lngMaxIndTabRange = lngMaxIndTabRange + 1
ReDim Preserve lngTabRange(lngMaxIndTabRange)
Set lngTabRange(lngMaxIndTabRange) = objCell.MergeArea
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
' Si on est pas sur une cellule fusionnée
Else
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
Next

'MsgBox "Résultat : " & lngNbrCell
CompteNombreCellules = lngNbrCell

End Function






"Pascal Engelmajer" a écrit dans le
message de news:uV$
Salut,
PowerObj.Width
devrait fonctionner si ...
la propriété Width est-elle une propriété de l'objet que tu insères ?
car j'ai testé avec divers objets et ça marche
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

je viens de faire une macro qui insère un objet de type image pour
que




tu
puisses essayer
le problème est que là ça marche : est-ce que ça veux dire que je ne
peux


pas agrandir par macro mon objet (alors que manuellement, ça marche)
?





Sub Word2()

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile = WordObj.Documents.Add 'Crée Fichier Word

Set NewTextBox > > > >
WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,




Left:(.5, Top:r, Width:@0, Height:90)
NewTextBox.TextFrame.TextRange.Select
Set ImgObj > > > >
WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="Paint.Picture",



Filename:="C:WINDOWSZapotec.bmp", LinkToFile:úlse,
DisplayAsIcon:úlse)


ImgObj.Width = 400

Set NewTextBox = Nothing
Set WordFile = Nothing
Set WordObj = Nothing

End Sub

"Emcy" a écrit dans le message de
news:
...à l'interieur

"Pascal Engelmajer" a écrit
dans





le
message de news:u$
Salut,
l'objet est inserré dans le TextBox ?
ou à la place ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il
va."




Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de news:

Regardes plustot pour "InlineShapes"
tout ce que j'ai écris fonctionne à part la ligne :
"PowerObj.Width





650
'ça marche pas"


"Pascal Engelmajer" a
écrit







dans
le
message de news:
Salut,
la propriété Selection n'a pas de méthode .AddOLEObject
NewTextBox.TextFrame.TextRange.Select

Set PowerObj






=WordObj.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",







_
.../...
PowerObj.Width= 650

--



Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas
ou








il
va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de
news:









Le commande "Selection" désigne l'objet selectionné en
cours.








dans
mon
cas
c'est la zone de text que j'ai juste crée avant
On aurait pu remplacer le "Selection" par
"NewTextBox.TextFrame.TextRange"


mais word n'accepte pas cette méthode (on ai obligé de
passer








par
les
commandes "Select" et "Selection" : du moin c'est ce que
j'ai








cru
comprendre)


"Pascal Engelmajer" a
écrit







dans
le
message de news:ev4e$
Salut,













WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


à quoi sert le Selection ?
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas










ou
il
va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message de
news:









ça marche .... pas :-(

"Pascal Engelmajer"












a
écrit
dans
le
message de
news:%










Salut Emcy,
essaie à tout hasard
PowerObj.Object.Width ...
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne
sait












pas
ou
il
va."
Sénèque.
http://www.ilyapa.net/excel
http://www.ilyapa.net/baseExcel
"Emcy" a écrit dans le message
de











news:

bonjours,

j'ai fait une macro à partir d'excel qui insère un
objet











dans
word
quelq'un sait-il comment faire pour régler la
hauteur












et
la
largeur
de
l'objet ?

Set WordObj = CreateObject("Word.Application")

WordObj.Visible = True
Set WordFile > > WordObj.Documents.Open(NomenclatureWord)
'ouvre







la
nomenclature Word

'insére plan ref dessus
WordFile.Range(Start:=3, End:=3).Select
Set NewTextBox > > > > > > > > > > > > >










WordFile.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,




Left:5, Top:r, Width:0, Height:0) 'insére
zone












de
text
NewTextBox.TextFrame.TextRange.Select
Set PowerObj > > > > > > > > > > > > >















WordObj.Selection.InlineShapes.AddOLEObject(ClassType:="PowerPCB.Design",


Filename:="C:AA Travail CEDCIRCUITCIRCUIT en
cours9000-099999050-0905990519051 539051
53












B1EQ01PCB-09051
53
B1 CMR-EQ01(ref).pcb", LinkToFile:úlse,
DisplayAsIcon:úlse)







'insère
mon
objet

PowerObj.Width = 650 'ça marche pas




















































1 2