Excel ئارخىپقا رەسىم كىرگۇزۇشتىن ياردەم سورايمەن

uyghurcarton · ۋاقتى: 2011-1-11 01:30:50

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

muhammad · ۋاقتى: 2011-1-11 02:05:45

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

ELTURK · ۋاقتى: 2011-1-11 11:00:59

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

ELTURK · ۋاقتى: 2011-1-11 11:02:28

بۇنىڭغا ئىشلەتكەن كود
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

Omarjan87 · ۋاقتى: 2011-1-11 20:12:46

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

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

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

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

nurmamatjan · ۋاقتى: 2011-1-20 19:07:06

دوستۇم مۇنۇ تىزملكتىن كىرىپ 视图 بۇنىڭدىن 工具栏 بۇتىزملكتىن 绘图 ئاندىن رەسم ئەكىرىش شەكلى بار مۇنۇ 插入文件中的图片 خەتنى بىسپ خالغان ئۇرۇنغا رەسم ئەكرەلەيسىزغۇ قېنى سىناپ بېقىڭ قىلالمسىڭز ئەيپكە بۇيرىماڭ مەنمۇ بىر ئۇگەنگۇچى دە

muhammad · ۋاقتى: 2011-1-23 03:05:18

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

ozkan · ۋاقتى: 2011-2-4 13:42:52

omarjan87ئەپەندى، سىز دېگەن بۇ كودنى قەيەرگە قويىمىز؟

Omarjan87 · ۋاقتى: 2011-2-4 21:56:21

Excel دىكى 工具 >> 宏 >> Visual Basic نى ئاچسىڭىز ئۈستى سول تەرەپتە Sheet2 ، Sheet1، .... لەر كۆرىنىدۇ ، بۇلاردىن Sheet1 نى قوش چەكسىڭىز كود يېزىش رايۇنى ئېچىلىدۇ ، بۇ يەرگە يۇقارقى كودنى كۆچۈرۈپ چاپلىسىڭىز بولىدۇ .

ھېسابات		ساقلاش	پارول قايتۇرىۋېلىش
پارول			تىزىملىتىش

مىكروبلوگ[ يېڭى | 24 سائەت | 7 كۈن | 30 كۈن ]

Excel ئارخىپقا رەسىم كىرگۇزۇشتىن ياردەم سورايمەن