Hi, i need help! i want to put an image, selected by the user, in cel
B13...the worksheet is protected...

i used to use this code:

Private Sub CommandButton4_Click()

Dim Pict
Dim ImgFileFormat As String
Dim PictCell As Range
Dim Ans As Integer

ImgFileFormat = "Imagens Jpg (*.jpg),others, Bmp (*.bmp),*.bmp, Gi
(*.gif),*.gif"

GetPict:
Pict = Application.GetOpenFilename(ImgFileFormat)
If Pict = False Then End

Ans = MsgBox("Open : " & Pict, vbYesNo, "Insert Picture")
If Ans = vbNo Then GoTo GetPict

Sheets("Ficha Técnica").Unprotect (1111111)
GetCell:
Set PictCell = Application.InputBox("Inserir este valor - B:13 "
Type:=8)
If PictCell.Count 1 Then MsgBox "Seleccionar uma célula": GoT
GetCell
PictCell.Select
ActiveSheet.Pictures.Insert(Pict).Select
If PictCell = vbCancel Then GoTo GetCell
Sheets("Ficha Técnica").Protect (1111111), False, True, True

but i want to make this quicker...i want to change the part i
italic...after i select the image paste the image in cell B13...

sorry for my english...i hope you can help me...thank

--
Message posted from http://www.ExcelForum.com