none
엑셀에 그림 넣기 RRS feed

  • 질문

  • 감사 합니다

    항상 저의 허접한 질문에 답을 하여 주셔서 항상 고맙습니다.

    어떤 그림이 있습니다.

    objsheet.Range("L39").Value = "그림"

    형식으로 넣을수 있을까요

    부탁 합니다.

    2013년 8월 21일 수요일 오전 4:05

답변

  • Imports System.Math '함수 계산
    Imports System.IO   '화일 입출력
    Imports Microsoft.Office.Interop.Excel ' 엑셀
    Imports Microsoft.Office.Interop


            Dim objExcel As Excel.Application
            Dim objBOOK As Excel.Workbook
            Dim objsheet As Excel.Worksheet

            Dim FILES_명, IMA_FILES_명 As String
            Dim SHEET_명 As String

            FILES_명 = "D:\VB\공조기선정\엑셀\DATA_SHEET.xlsx"
            SHEET_명 = "SF_DataSheet"

            IMA_FILES_명 = "D:\VB\공조기선정\엑셀\chart1.jpg"

            ControlBmpToFile(Chart1, "D:\VB\공조기선정\엑셀\chart1.jpg") '차트 저장
                            'Chart1 차트 이름

            objsheet.Shapes.AddPicture(IMA_FILES_명, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoCTrue, 352, 255, 224, 190)
            '엑셀에 좌표로 입력 하고
            '이미지 크기 지정 하여 붙이는데.

     Public Sub ControlBmpToFile(control As Control, file As String) 'jpg로 저장

            Dim bmp As New Bitmap(control.Width, control.Height)
            control.DrawToBitmap(bmp, control.DisplayRectangle)
            bmp.Save(file, System.Drawing.Imaging.ImageFormat.Jpeg)

        End Sub

    하면 붙네요

    • 답변으로 표시됨 박희철 2013년 8월 22일 목요일 오전 4:58
    2013년 8월 22일 목요일 오전 4:58