페이지 정보

작성자 하나를하더라도최선을
댓글 0건 조회 8,879회 작성일 19-07-08 00:10

본문

Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long

'Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINT) As Long

'Private Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As Long

 

 

Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDC As Long, ByVal nIndex As Long) As Long

Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long

 

Private Const POINTS_PER_INCH As Long = 72

Private Const LOGPIXELSX = 88 ' tell GetDeviceCaps to return horiz

 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

 

'Private Type POINT

'    X As Long

'    Y As Long

'End Type

 

Private Sub CommandButton1_Click()

 

    img.Picture = LoadPicture(ThisWorkbook.Path & "\img.jpg")   '// 현재 파일과 같은 경로의 img.jpg 파일을 불러옴

    img.PictureSizeMode = fmPictureSizeModeClip

    img.AutoSize = True: DoEvents   '// 이미지 사이즈에 맞게 컨트롤을 변경하고 이벤트를 시스템에 넘김

    

    Application.ScreenUpdating = False  '// 앞으로 화면의 변화를 업데이트 하지 않음

    Columns.ColumnWidth = 0.38  '// 모든 셀의 넓이를

    Rows.RowHeight = 3.75   '// 모든셀의 높이를

    Cells.Interior.Pattern = xlNone '// 채우기 초기화

 

    Dim hDC As Long

    

    hDC = GetDC(FindWindow(vbNullString, Me.Caption))   '// 폼의 핸들값

 

    Dim Y As Integer, X As Integer

    For X = 1 To GetGraphicswidth   '// 이미지의 넓이만큼

        For Y = 1 To GetGraphicsHeight  '// 이미지의 높이 만큼

            Cells(Y, X).Interior.Color = GetPixel(hDC, X + (PixelsPerPoint * img.Left) - 1, Y + (PixelsPerPoint * img.Top) - 1) '// 셀에 색상을 변경

        Next

    Next

    hDC = ReleaseDC(0, hDC)

    Application.ScreenUpdating = True

End Sub

 

Public Function PixelsPerPoint() As Double

    Dim deviceContextHandle As Long

    Dim DotsPerInch As Long

    deviceContextHandle = GetDC(0)

    DotsPerInch = GetDeviceCaps(deviceContextHandle, LOGPIXELSX)

    PixelsPerPoint = DotsPerInch / POINTS_PER_INCH

    ReleaseDC 0, deviceContextHandle

End Function

 

Public Function GetGraphicswidth()

    GetGraphicswidth = PixelsPerPoint * img.Width

End Function

 

Public Function GetGraphicsHeight()

    GetGraphicsHeight = PixelsPerPoint * img.Height

End Function

GetPixel 에서 이미지 컨트롤의 위치를  좀더 정확하게 찿을 수 있으면 좋겠다.

귀차나서 이부분은 간단히 마무리 하는걸로...

 

첨부파일

• 5280b24154a650d90623898695156d6ec084_ugcvideo_720P_01.mp4 (29.4M)
  0회 다운로드 | DATE : 2019-07-08 00:10:04
• Book1.xlsm (36.6K)
  4회 다운로드 | DATE : 2019-07-08 00:10:04

댓글목록

등록된 댓글이 없습니다.