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

10 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 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
ç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
papou
Bonjour
Pas testé mais essaie avec quelque chose comme
ObjWord.Shapes(PowerObj)

Cordialement
Pascal


"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,
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
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 essayé la commande suivante mais sans résultat
WordObj.Shapes(PowerObj).Width = 650

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:%
Bonjour
Pas testé mais essaie avec quelque chose comme
ObjWord.Shapes(PowerObj)

Cordialement
Pascal


"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
papou
Oups !
Plutôt quelque chose comme ça mais encore une fois c'est un peu (beaucoup) à
l'aveugle :
WordObj.ActiveDocument.Shapes(PowerObj)

Cordialement
Pascal

"Emcy" a écrit dans le message de
news:%23t$i%
j'ai essayé la commande suivante mais sans résultat
WordObj.Shapes(PowerObj).Width = 650

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:%
Bonjour
Pas testé mais essaie avec quelque chose comme
ObjWord.Shapes(PowerObj)

Cordialement
Pascal


"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,
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
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
ça marche toujours pas

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:%23$
Oups !
Plutôt quelque chose comme ça mais encore une fois c'est un peu (beaucoup)
à

l'aveugle :
WordObj.ActiveDocument.Shapes(PowerObj)

Cordialement
Pascal

"Emcy" a écrit dans le message de
news:%23t$i%
j'ai essayé la commande suivante mais sans résultat
WordObj.Shapes(PowerObj).Width = 650

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:%
Bonjour
Pas testé mais essaie avec quelque chose comme
ObjWord.Shapes(PowerObj)

Cordialement
Pascal


"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