|
🖤 پیام تسلیتبا نهایت تأسف و تأثر، باخبر شدیم جناب آقای محمد محمدی با نام کاربری smartman ، از مدیران ارزشمند انجمن اکسل ایران، دار فانی را وداع گفتهاند. ایشان سالها با دانش، تجربه، اخلاق نیکو و روحیه کمک به دیگران، سهم بزرگی در رشد و پویایی انجمن داشتند و خاطره حضور ارزشمندشان همواره در ذهن اعضای انجمن باقی خواهد ماند. مدیریت و اعضای انجمن ExcelIran این ضایعه را به خانواده محترم ایشان، دوستان و تمامی اعضای انجمن تسلیت عرض نموده و از خداوند متعال برای آن مرحوم، رحمت و مغفرت الهی و برای بازماندگان صبر و شکیبایی مسئلت دارند.
انا لله و انا الیه راجعون
|
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
کامنت