Re bonjour a tous les deux
deja merci du coup de main
ci joint un extrait du code ou je veux grouper la photo avec l'addtextbox
je suppose que le probleme vient de la ligne
Shapes.Range(Array(p.name, AddTextbox)).Group
il doit y avoir une probleme d'ecriture
Citation:
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHo rizontal, 520#, -15 + iiii, _
17#, 45#).Select
Selection.Characters.Text = i
With ActiveSheet
Set p = .Pictures.Insert(Application.FileSearch.FoundFiles (i))
.DrawingObjects(p.Name).Left = .Columns("j").Left
.DrawingObjects(p.Name).Top = .Rows(iii).Top
.DrawingObjects(p.Name).Width = .Columns("l").Left - .Columns("j").Left
.DrawingObjects(p.Name).Height = .Rows(iii + 3).Top - .Rows(iii).Top
.DrawingObjects(p.Name).Placement = xlMoveAndSize
.DrawingObjects(p.Name).PrintObject = True
.Shapes.Range(Array(p.name, AddTextbox)).Group
|
@+