[ياردەم] Excel دا قىستۇرغان رەسىم چوڭلىقىنى كونترول قىلىش [ئۇلانما كۆچۈرۈش]

generator888

ياساۋۇل

Rank: 3 Rank: 3

تۆھپە: 66
تىللا: 71
شۆھرەت: 60

يوللىغان ۋاقتى 2012-4-25 17:15:02 |ھەممە قەۋەتنى كۆرۈش

Excelنىڭ كاتەكچىسىگە رەسىم قىستۇرۇشنىڭ ئامالى بار مۇ؟

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

سىندەرس: سەينادىن پايدىلىنىش

جابدۇق ئىشلىتىش پاش قىلىش

Intil

ئاتامان

بېكەت باشلىقى

Rank: 32

تۆھپە: 16050
تىللا: 20356
شۆھرەت: 28183

يوللىغان ۋاقتى 2012-4-25 22:06:45 |ھەممە قەۋەتنى كۆرۈش

سىناپ بېقىڭ

Sub addpicture()
Dim FirstRow, LastRow As Integer, FileType As String
FirstRow = Sheet1.UsedRange.Row
LastRow = FirstRow + Sheet1.UsedRange.Rows.Count - 1
FileType = InputBox("输入你的图片的后缀名", "输入图片格式", "jpg")
For i = FirstRow To LastRow
Numb = Cells(i, 2).Value
With ActiveSheet
.Pictures.Insert("D:\tmp\" & Numb & "." & FileType).Select
Set Target = .Cells(i, 1)
End With
With Selection
.Top = Target.Top + 1
.Left = Target.Left + 1
.Width = Target.Width - 1
.Height = Target.Height - 1
End With
Next i
End Sub

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

بۇمۇ بىر خىل كود

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
objSelection.TypeText "Here is a sentence preceding the picture."
Set objShape = objSelection.InlineShapes.AddPicture("C:\Temp\3.gif")
With objWord.ActiveDocument.InlineShapes(1)
.Height = 250
.Width = 250
End With

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

پايدىلىنىڭ تەپسىلىي: EXCEL+VBA دا رەسىم كەڭلىكىنى تەڭشەش

ئەتە ئۆلۈپ كېتىدىغاندەك ياخشى ئەمەللەردە بول.

جابدۇق ئىشلىتىش پاش قىلىش

generator888

ياساۋۇل

Rank: 3 Rank: 3

تۆھپە: 66
تىللا: 71
شۆھرەت: 60

يوللىغان ۋاقتى 2012-4-26 09:06:28 |ھەممە قەۋەتنى كۆرۈش

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

جابدۇق ئىشلىتىش پاش قىلىش