For i = 1 To 30 Set ctrl = ActiveSheet.OLEObjects("CommandButton" & i) ctrl.Object.Picture = LoadPicture(Range("A" & i).Value) Next
ctrl.Object.Picture = LoadPicture("C:\image1.bmp")
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question