File Ví dụ để mọi người xem để giúp đỡ em!
https://www.mediafire.com/?80rd890r3mdobdr
bạn tải folder đó về, giải nén (có thể dùng công cụ WinRar - phải
Extract To ra ngoài mới dùng được)
mở file
danhmuc ho so (1), cho chạy
Macro !
-
Double click vào
cột B (vùng B6:B1000) để hiện ảnh (Pic-UserForm)
- click trực tiếp vào ảnh hoặc UserForm để thoát.
Link:
https://www.mediafire.com/?b3tyicsccw3u93y
code này mình chưa thử trên nhiều máy tính khác nhau nên chưa rõ kết quả có chính xác tuyệt đối hay ko?
(mình mới thử với Win 8 - Excel 2013)
[GPECODE=vb]
'http://www.vbaexpress.com/forum/showthread.php?10033-Solved-maximize-user-form-on-open
'Option Explicit
Private ScrWidth&, ScrHeight&
Private Declare Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex&) As Long
Private Sub UserForm_Initialize()
Dim Factor As Single
Factor = 0.75 'adjust to suit
Me.Width = GetSystemMetrics32(0) * Factor '< in pixels
Me.Height = GetSystemMetrics32(1) * Factor
LoadPic
'old
'Me.Height = Application.UsableHeight
'Me.Width = Application.UsableWidth - 1
End Sub
Private Sub LoadPic()
Dim imgFolder As String
Dim sFileName As String
On Error GoTo Thoat
'get the path to the images
imgFolder = ThisWorkbook.Path & Application.PathSeparator & "images" & Application.PathSeparator
sFileName = Range("F" & ActiveCell.Row).Value
With Me
.Image1.Picture = LoadPicture(imgFolder & sFileName & ".jpg") 'load picture to form
.Image1.Left = .Width / 2 - .Image1.Width / 2
.Caption = "Address: " & imgFolder & sFileName & ".jpg"
End With
Exit Sub
Thoat:
'MsgBox ("Ko tim thay' Pic") & sFileName, vbExclamation
End Sub
Private Sub UserForm_Click()
Unload Me
End Sub
Private Sub Image1_Click()
Unload Me
End Sub
[/GPECODE]