Bonour à toutes et à tous,
Encore un Pb d'image et de shapes au petit matin. J'ai du malà gérer les shapes...
Ma 2ème forme va très bien mais pas la 1ère, à cause de '.Adjustements(1)= 0.03'
Dim sh, sh2 As Shape
Set sh2 = ActiveSheet.Shapes.AddPicture("chemin", True, True, 608, 103.5, 352.75, 25)
With sh2
.Name = "toto2"
.Adjustments(1) = 0.03
End With
'
Set sh = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 608, 103.5, 352.75, 838.5)
With sh
With .Fill
.Visible = True
.ForeColor.RGB = RGB(0, 128, 0)
.Transparency = 0.5
End With
.Name = "toto"
.Adjustments(1) = 0.03
End With
Que faire pour remédier à ce Pb ?
Meci
Eric D
Encore un Pb d'image et de shapes au petit matin. J'ai du malà gérer les shapes...
Ma 2ème forme va très bien mais pas la 1ère, à cause de '.Adjustements(1)= 0.03'
Dim sh, sh2 As Shape
Set sh2 = ActiveSheet.Shapes.AddPicture("chemin", True, True, 608, 103.5, 352.75, 25)
With sh2
.Name = "toto2"
.Adjustments(1) = 0.03
End With
'
Set sh = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 608, 103.5, 352.75, 838.5)
With sh
With .Fill
.Visible = True
.ForeColor.RGB = RGB(0, 128, 0)
.Transparency = 0.5
End With
.Name = "toto"
.Adjustments(1) = 0.03
End With
Que faire pour remédier à ce Pb ?
Meci
Eric D