:!: โปรดทราบ Image
  1. วิธีการสมัครสมาชิกฟอรั่มดูที่ Link นี้ครับ => วิธีการสมัครสมาชิก
  2. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้
  3. สามารถปรับขนาดตัวอักษรโดยกดแป้น Ctrl ค้างไว้แล้วหมุนลูกกลิ้งเมาส์ไปด้านหน้า/ด้านหลัง หรือโดยการปรับ Font ดูได้ที่ => ปรับขนาดตัวอักษรบน Browser
  4. กรุณาอ่านกฎการใช้บอร์ดในตำแหน่งด้านบนของแต่ละบอร์ดครับ

Show Picture

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้ ไม่แนบ Link มาจากแหล่งอื่น อย่าแนบไฟล์จริงประกอบคำถาม เพื่อป้องกันข้อมูลสำคัญรั่วไหล นอกจากนี้ยังช่วยเพิ่มความสะดวกในการตอบคำถาม
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
palmy
Member
Member
Posts: 78
Joined: Fri Nov 12, 2010 3:06 pm

Show Picture

Postby palmy » Mon Mar 04, 2013 12:31 am

เรียนอาจารย์ครับ
ผมลองนำCode การดึงรูปภาพมาแสดงใน Excel ซึ่งสามารถดึงรูปมาแสดงได้
แต่ทีนี้เวลาเราค้นหารูปภาพถัดไป รูป Icon และ Logo ต่างๆที่เราทำใน Sheet นี้ก็หายไปด้วย
ต้องปรับ Code อย่างไรครับถึงจะให้หายไปเฉพาะรูปที่เราดึงมาแสดง

Code: Select all

Sub ShowPicture00()
    Dim r As String
    r = Range("B9").Value
    On Error Resume Next
    ActiveSheet.Shapes(1).Delete
    Range("H2").Select
    ActiveSheet.Pictures.Insert("D:\PicSSK\" & r & ".BMP").Select
    Selection.ShapeRange.ScaleWidth 0.14, _
        msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.14, _
        msoFalse, msoScaleFromTopLeft
    Range("B9").Select
End Sub
Sub ShowPicture()
Dim r As String
Dim imgIcon
On Error Resume Next
    ActiveSheet.Shapes(1).Delete
r = Range("B9").Value
With Range("H2")
    Set imgIcon = ActiveSheet.Shapes.AddPicture( _
    Filename:="D:\PicSSK\" & r & ".BMP", LinkToFile:=False, _
    SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
    Width:=120, Height:=130)
End With
Set imgIcon = Nothing
End Sub

joo
Gold
Gold
Posts: 1196
Joined: Sat Apr 17, 2010 3:50 pm

Re: Show Picture

Postby joo » Mon Mar 04, 2013 11:48 am

:D ลองแนบไฟล์มาดูกันหน่อยครับเพื่อนสมาชิกจะได้ช่วยกันทดสอบ

palmy
Member
Member
Posts: 78
Joined: Fri Nov 12, 2010 3:06 pm

Re: Show Picture

Postby palmy » Mon Mar 04, 2013 8:30 pm

ไฟล์ตัวอย่างครับ
ใน Sheet Search จะใช้โค๊ดดึงรูปภาพมาแสดงจากรหัสพนักงาน
ซึ่งสามารถเรียกรูปได้ปกติ
แต่ ตัวควบคุมฟอร์ม รูปโลโก้ต่างๆ จะหายไปหมดเลยครับ
(จากตัวอย่างที่แนบ รูปโลโก้หายไปแล้ว และตัวควบคุมฟอร์มที่ใช้บันทึกข้อมูลไปอีก Sheet ก็หายไปด้วยครับ)
You do not have the required permissions to view the files attached to this post.

User avatar
snasui
Site Admin
Site Admin
Posts: 16806
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: Show Picture

Postby snasui » Mon Mar 04, 2013 10:40 pm

:D ตัวอย่างการปรับ code เป็นตามด้านล่างเพื่อลบ object อื่น ๆ ที่ไม่ได้ชื่อ รูปภาพ 5 ออกไป

Code: Select all

Sub ShowPicture()
    Dim r As String
    Dim p As Object
    Dim imgIcon
    On Error Resume Next
    For Each p In ActiveSheet.Shapes
        If p.Name <> "รูปภาพ 5" Then
            p.Delete
        End If
    Next p
'     ActiveSheet.Shapes(1).Delete
    r = Range("B9").Value
    With Range("H2")
        Set imgIcon = ActiveSheet.Shapes.AddPicture( _
        Filename:="D:\PicSSK\" & r & ".BMP", LinkToFile:=False, _
        SaveWithDocument:=True, Left:=.Left, Top:=.Top, _
        Width:=120, Height:=130)
    End With
    Set imgIcon = Nothing
End Sub
คนควน Image Image Image Image
MVP-Excel (2010-2014)

palmy
Member
Member
Posts: 78
Joined: Fri Nov 12, 2010 3:06 pm

Re: Show Picture

Postby palmy » Wed Mar 06, 2013 12:22 am

เรียนถามครับ
จากการใช้งานดึงรูปภาพมาแสดง สิ่งที่เจอปัญหาเพิ่มเติม ซึ่งไม่แน่ใจว่าเป็นเพราะใช้ Code นี้หรือเปล่า
คือการใช้ Data Validation เพื่อจัดทำรายการเลือก (List) ใน Sheet นี้
จะถูกลบหมด เมื่อเช็คไปที่ Validation การตั้งค่าก็ยังเป็นรูปแบบ "รายการ" อยู่เช่นเดิม
แต่ใน Cell นั้น ไม่มีปุ่มลูกศร Dropdown ให้เลือก
ต้องตั้งค่า Validation จากรายการ เป็นค่าใดๆ ก่อน แล้วตั้งใหม่ก็สร้างเป็นรายการได้
แต่ป้อนข้อมูลในการดึงภาพใหม่ List รายการก็หายไปอีก
รบกวนช่วยแนะนำด้วยครับ

User avatar
tupthai
Bronze
Bronze
Posts: 300
Joined: Sat Feb 04, 2012 2:49 pm

Re: Show Picture

Postby tupthai » Wed Mar 06, 2013 8:09 am

เปลี่ยนจาก

Code: Select all

For Each p In ActiveSheet.Shapes
        If p.Name <> "รูปภาพ 5" Then
           p.Delete
        End If
 Next p

เป็น

Code: Select all

For Each p In ActiveSheet.DrawingObjects
        If p.Name <> "รูปภาพ 5" Then
            p.Delete
        End If
    Next p

:D ลองทดสอบดูครับ

palmy
Member
Member
Posts: 78
Joined: Fri Nov 12, 2010 3:06 pm

Re: Show Picture

Postby palmy » Wed Mar 06, 2013 10:04 am

ขอบคุณมากครับ

nurak
Member
Member
Posts: 48
Joined: Thu May 06, 2010 5:27 am

Re: Show Picture

Postby nurak » Sat Feb 15, 2014 6:43 am

มีวิธีการปรับลดขนาดความละเอียดของรูป ก่อนนำเข้าใน Excel หรือไม่ครับ หรือมีวิธีอื่นๆช่วยแนะนำด้วยครับ

User avatar
snasui
Site Admin
Site Admin
Posts: 16806
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: Show Picture

Postby snasui » Sat Feb 15, 2014 8:35 am

:D สามารถใช้ Microsoft Office Picture Manager เข้ามาช่วยได้ครับ

กรณีใช้ Windows 7 คลิก Start > คีย์ m o p m Windows จะ Search โปรแกรมมาให้
คนควน Image Image Image Image
MVP-Excel (2010-2014)

nurak
Member
Member
Posts: 48
Joined: Thu May 06, 2010 5:27 am

Re: Show Picture

Postby nurak » Sat Feb 15, 2014 8:47 am

ถ้าเป็น XP วิธีการทำแบบไหนครับ

User avatar
snasui
Site Admin
Site Admin
Posts: 16806
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Contact:

Re: Show Picture

Postby snasui » Sat Feb 15, 2014 8:53 am

:D ลองตามนี้ครับ

Start > All Programs > Microsoft Office > Microsoft Office xxxx Tools

สำหรับ xxxx คือ Version ของ Microsoft Office ที่ใช้อยู่ครับ
คนควน Image Image Image Image
MVP-Excel (2010-2014)


Return to “Excel”

Who is online

Users browsing this forum: Google Feedfetcher, Google [Bot], khainui, puriwutpokin and 4 guests