Sub loadpic()
On Error Resume Next
Dim fdir, picdir As String
If Range("a2") = "" Then
MsgBox ChrW(33) & ChrW(32) & ChrW(1604) & ChrW(1591) & ChrW(1601) & ChrW(1575) _
& ChrW(32) & ChrW(1606) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1578) & _
ChrW(1589) & ChrW(1608) & ChrW(1740) & ChrW(1585) & ChrW(32) & ChrW(1585) & _
ChrW(1575) & ChrW(32) & ChrW(1608) & ChrW(1575) & ChrW(1585) & ChrW(1583) & _
ChrW(32) & ChrW(1705) & ChrW(1606) & ChrW(1740) & ChrW(1583)
ActiveSheet.Shapes.Range(Array("Rectangle1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.Patterned msoPattern5Percent
End With
ActiveSheet.Shapes.Range(Array("Rectangle1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.Patterned msoPattern5Percent
End With
Range("a2").Select
Exit Sub
End If
fdir = "C:\Users\Mran\Desktop\ax\tasavir\"
picdir = fdir & Range("a2").Value & ".jpg"
If Dir(picdir) = "" Then
MsgBox ChrW(33) & ChrW(32) & ChrW(1578) & ChrW(1589) & ChrW(1608) & ChrW(1740) _
& ChrW(1585) & ChrW(32) & ChrW(1740) & ChrW(1575) & ChrW(1601) _
& ChrW(1578) & ChrW(32) & ChrW(1606) & ChrW(1588) & ChrW(1583)
ActiveSheet.Shapes.Range(Array("Rectangle1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.Patterned msoPattern5Percent
End With
ActiveSheet.Shapes.Range(Array("Rectangle1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent1
.Patterned msoPattern5Percent
End With
Range("a2").Select
Exit Sub
End If
If Range("a1") <> "" Then
ActiveSheet.Shapes.Range(Array("Rectangle1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.UserPicture picdir
.TextureTile = msoFalse
End With
Range("a2").Select
End If
End Sub
If Left(Pictur.Name, 1) = "picture" Then
If Left(Pictur.Name, 7) = "Picture" Then
ActiveSheet.Shapes.AddPicture Filename:=myDir & EmployeeName & T, _
linktofile:=msoFalse, savewithdocument:=msoTrue, Left:=235, Top:=35, Width:=85, Height:=113.5
کامنت