Excel گە رەسىم كىرگۇزۇشتىن ياردەم سۇرايمەن

يوللىغۇچى: uyghurcarton | يوللانغان ۋاقتى: 2011-1-11 01:30| كۆرۈلۈشى: 46| ئىنكاس سانى: 4|تېما مەشغۇلات خاتىرىسى

مەن ھازىر ئۇقۇغۇچىلارنىڭ ئىلىكتىرۇنلۇق ئارخىۋىنى ئىشلەۋاتقان . ئۇنىڭىدىكى مەلۇم كاتەككە رەسىم كىرگۇزۇش كىرەك بۇلۇپ قالدى ، ئەمما رەسىلەرنى ئەكىرسەم ئۆز چوڭلىقىدا كىرۋاتىدۇ .
مىنىڭ مەخسىدىم ، رەسىم چۇقۇم مەن بەلگىلەپ بەرگەن مۇئەييەن چوڭلىقتىكى كاتەككە ، باشقا دىتاللاردا تەھىرىرلەش ئىلىپ بارماي بىۋاستە ھالدا نەقلا چۇشسە بۇلاتتى .

باشقۇرغۇچى Nida بۇ تېمىنى تەستىقلىغان ۋاقتى ئۈلۈشكۈن 01:48

ساقلاش0 ھەمبەھر0 ياخشى0 ناچار0

يېڭى ئىنكاسلار

ئىنكاس نەقىل يوللانغان ۋاقتى |بارلىق يازمىلارنى كۆرسىتىش ئۈلۈشكۈن 02:05

بۇ بەتنى زىيارەت قىلىڭ ، بەلكىم جاۋاپ تاپالىشىڭىز مومكىن

ئىنكاس نەقىل يوللانغان ۋاقتى |بارلىق يازمىلارنى كۆرسىتىش ئۈلۈشكۈن 11:00

مەن بىلەن ئالاقىلىشىڭ، مەن ئالدىنقى قېتىم ئىنتىل، ئاتۇش قاتارلىقلارنىڭ ياردىمىدە تۇزگەن خېلى مۇكەممەل بىر جەدۋەل بار ئەۋەتىپ بىرەي
qq: 307992573

ئىنكاس نەقىل يوللانغان ۋاقتى |بارلىق يازمىلارنى كۆرسىتىش ئۈلۈشكۈن 11:02

بۇنىڭغا ئىشلەتكەن كود
Sub 微调框7_更改()
On Error Resume Next

Dim rng As Range

Dim myShape As Shape

For Each myShape In ActiveSheet.Shapes

If myShape.Name Like "*Picture*" Then

myShape.Delete

End If

Next

If Dir(ThisWorkbook.Path & "\中心幼儿园幼儿照片\" & [J1] & ".JPG") = "" Then

[H3] = "（没有该幼儿的图片信息）"

Else

ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\中心幼儿园幼儿照片\" & [J1] & ".JPG").Select

Set rng = [H3].MergeArea

With Selection

.Top = rng.Top + 1

.Left = rng.Left + 1

.Width = rng.Width + 1

.Height = rng.Height + 1

End With

[a1].Select

End If

End Sub

ئىنكاس نەقىل يوللانغان ۋاقتى |بارلىق يازمىلارنى كۆرسىتىش ئۈلۈشكۈن 20:12

تۆۋەندىكى كودتىن پايدىلىنىپ بېقىڭ ، رەسىم ئەكىرمەكچى بولغان كاتەكنى قوش چىكىپ تاللاش كۆزنىكىدىن رەسىمنى تاللىسىڭىز ، تاللانغان رەسىم شۇ كاتەكنىڭ چوڭلىقىدا كىرىدۇ . كاتەكنى قانداق چوڭلۇقتا تەڭشىسىڭىز رەسىممۇ شۇنچىلىك چوڭلۇقتا كىرىدۇ .

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
F = Application.GetOpenFilename _
("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "Rasim Tallash", , False)
If F = False Then
MsgBox "Rasim Tallanmidi"
Exit Sub
End If
For Each SP In ActiveSheet.Shapes
AD1 = SP.TopLeftCell.MergeArea.Address
AD2 = Target.Address
If AD1 = AD2 Then SP.Delete
Next
Set SP = ActiveSheet.Pictures.Insert(F)
HH = Target.Height / SP.Height
WW = Target.Width / SP.Width
If HH > WW Then
SP.Height = SP.Height * WW
SP.Width = Target.Width
Else
SP.Height = Target.Height
SP.Width = SP.Width * HH
End If
HH2 = (Target.Height / 2) - (SP.Height / 2)
WW2 = (Target.Width / 2) - (SP.Width / 2)
SP.Top = Target.Top + HH2
SP.Left = Target.Left + WW2
Set SP = Nothing
End Sub

مەزمۇننى كۆچۈرۈۋېلىش

بۇ كودنى مەلۇم بىر ئۇيغۇر تور بىكىتىدىن چۈشۈرۈۋالغان ئىدىم ، سىناپ بېقىڭ .

كۆرگەن سەھىپە

يېڭى تېما...

تاقاش تەستىق كودى

Excel گە رەسىم كىرگۇزۇشتىن ياردەم سۇرايمەن

يېڭى ئىنكاسلار

كۆرگەن سەھىپە