:!: โปรดทราบ Image
    1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ Image
    2. การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
      1. สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่านImage
      2. Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้ Image กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
    3. เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว Image
    4. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้ Image
    5. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ ==> กำหนดขนาดตัวอักษรใน Browser Image

รบกวนเพื่อนๆสมาชิคช่วยหน่อยครับ เรื่องการ แทรกรูป โดยใช้ Macro

ฟอรั่มถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถาม-ตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบ ต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. อธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. ควรแนบตัวอย่างไฟล์มาที่ฟอรั่มนี้เพื่อเพิ่มความสะดวกในการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่น นอกจากนี้ไม่ควรแนบไฟลที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. สำหรับคำถามเกี่ยวกับ VBA ให้ลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน ควรโพสต์ Code ให้แสดงเป็น Code เพื่อสะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. แจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
Slippery
Member
Member
Posts: 1
Joined: Sat Jul 15, 2017 8:24 am

รบกวนเพื่อนๆสมาชิคช่วยหน่อยครับ เรื่องการ แทรกรูป โดยใช้ Macro

#1

Postby Slippery » Sun Jul 16, 2017 8:31 am

เนื่องจากผมได้เจอโค้ดของ (ขออนุญาต อ้างชื่อนะครับ) อาจารย์ snasui แล้ว นำมาทดลองใช้จึงเกิดความคิดอย่ากศึกษาเพื่อนำไปใช้จริง แต่ไม่ง่ายเลยสำหรับผมที่ไม่ค่อยมีพื้นฐานทางนี้จึงอยากจะขอรบกวนสมาชิคช่วย ตรวจสอบ แนะนำ แก้ใข ให้ผมหน่อยครับ
(ปัจจุบันผมใช้ Excel 2010 อยู่ครับ)

โดยผลลัพท์ที่อยากได้นั้นคือ
1. เมื่อกดปุ่มที่สร้างไว้แล้ว อยากให้รูป มีขนาดเท่ากัน เซลที่ผสานไว้ หรือ สามารถกำหนดขนาดได้ครับ
2. อยากให้ ดึงรูป ตามชื่อ Folder ที่เซล A2 และ A3 แล้ว เซฟไฟล์ใหม่ ไว้มาตามชื่อของแต่ละ Folder ที่ตั้งไว้ครับ

ทั้งนี้ผมได้แนบไฟล์ที่ผมทดลองทำมาแล้วพร้อมทั้ง Folder รูปภาพครับ ผิดพลาดประการไดขออภัยมา ณ ที่นี้ด้วยครับ ขอบคุณครับ :D

Code ที่ผมนำมาใช้อยู่นะครับ

Code: Select all

Sub ShowPicture()
    Dim r As Range, ra As Range
    Dim imgIcon As Object
    Dim obj As Object
    On Error Resume Next
    With Worksheets("Sheet1")
        Set ra = .Range("C1", .Range("B65536").End(xlUp).Offset(0, 1))
    End With
    For Each obj In ActiveSheet.Shapes
        If Left(obj.Name, 4) = "Pict" Then
            obj.Delete
        End If
    Next obj
    For Each r In ra
        Set imgIcon = ActiveSheet.Shapes.AddPicture(Filename:="C:\A\" & r.Offset(0, -1).Value & ".jpg", LinkToFile:=False, SaveWithDocument:=True, Left:=r.Left, Top:=r.Top, Width:=r.Width, Height:=r.Height)
    Next r
End Sub
You do not have the required permissions to view the files attached to this post.

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

Re: รบกวนเพื่อนๆสมาชิคช่วยหน่อยครับ เรื่องการ แทรกรูป โดยใช้ Macro

#2

Postby snasui » Sun Jul 16, 2017 10:58 am

:D Code นั้นเป็นการนำมาใช้ตามแบบต้นฉบับ ได้ปรับแค่ตำแหน่งที่วางข้อมูล ยังไม่มีส่วนของการ Save ไฟล์ตามที่เขียนแจ้งมาแต่อย่างใด ช่วยเขียนเพิ่มเติมสำหรับส่วนนี้มาด้วย หรือหากเขียนมาแล้วช่วยแจ้งว่าอยู่ที่ Procedure ใด ติดขัดบรรทัดไหน อย่างไร จะได้ตอบต่อไปจากนั้นครับ


Return to “Excel”

Who is online

Users browsing this forum: No registered users and 35 guests