INSERER DES IMAGES EN APPUYANT SUR UN BOUTON

[Thomas]

je voudrais, lors un clic sur un COMMANDBUTTON, creer des IMAGES et des TEXTBOX aux dimensions voulu.

j'arrive a faire apparaitre les IMAGES et le TEXTBOX mais pas a entrer mes dimensions...

ci-dessous mon bout de code...

Private Sub CommandButtonValider_Click()

Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.InsertBreak Type:=wdPageBreak
Selection.InlineShapes.AddOLEControl ClassType:="Forms.Image.1"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" "
Selection.InlineShapes.AddOLEControl ClassType:="Forms.Image.1"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddOLEControl ClassType:="Forms.Image.1"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Selection.TypeParagraph
Selection.InlineShapes.AddOLEControl ClassType:="Forms.TextBox.1"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeParagraph

End Sub

j'ai eu ce code en enregistrant une MACRO

Si quelqu'un connait la solution ... je suis tout ouie

 

[albert]

bonjour Thomas,
je suis autodidacte... je n'ai pas bien compris ta question, mais peut-être trouveras-tu ton bonheur dans l'adaptation d'un zoom

http://www.google.fr/search?q=cache:hhNpbr8zU1wJ:www.multimania.com/joseperez/telech/zoom.doc+joseperez+zoom&hl=fr&lr=lang_fr&ie=UTF-8

 

[bipbipcoyote]

http://bipbipcoyote.no-ip.org/Excel/AfficherUneImage/Pages/AfficherUneImage.html