VBA Chart sample1 - bami74/me GitHub Wiki

```vb Private Function lExport_to_Excel_V2(objF1 As F1Book, SaveFileName As String) '' On Error GoTo err1

Dim TempFileName As String
Dim YesNoCancelFlag As Integer


YesNoCancelFlag = vbYes
If YesNoCancelFlag = vbYes Then
    
    Call g_frmBPM.showwaiting(1, 0, "엑셀 생성중 입니다....")
    Call g_frmBPM.insertlog("Excel 생성 시작")
    cmdMenu(l_intExportExcel).Enabled = False
    
    TempFileName = "c:\Temp\tempxls" & format(Now, "YYYYMMDDHHMMSS") & ".xls"
    If Dir("C:\Temp", vbDirectory) = "" Then
        MkDir "C:\Temp"
    End If

    objF1.WriteEx TempFileName, F1FileExcel97

       

    Set oWorkbook = Nothing
    Set oWorksheet = Nothing
    Set oWorkbook = Excel.Workbooks.Open(TempFileName)

    '----------------------------------------------------------------------------------------------------
    '--엑셀파일 화면에 보여줄지 여부 (기본값은 화면에 보여주지 않는다)--
    '----------------------------------------------------------------------------------------------------
    oWorkbook.Application.Visible = False
    '----------------------------------------------------------------------------------------------------
            
    Dim i As Integer
    '-- 챠트가 있으면 이미지 삽입 --
    If UBound(l_objChartList_1) > 1 Then
        For i = 1 To UBound(l_objChartList_1)
            Set oWorksheet = oWorkbook.Worksheets(l_objChartList_1(i).iSheet)
            oWorksheet.Activate
            
            oWorksheet.Shapes.AddPicture l_objChartList_1(i).sFileName, False, True, -1, -1, -1, -1
            
            With oWorksheet.Shapes.Range(i)
                .LockAspectRatio = vbFalse
                .Top = Range(l_objChartList_1(i).sRCNrStart).Top
                .Left = Range(l_objChartList_1(i).sRCNrStart).Left
                .Width = Range(l_objChartList_1(i).sRCNrStart, l_objChartList_1(i).sRCNrEnd).Width
                .Height = Range(l_objChartList_1(i).sRCNrStart, l_objChartList_1(i).sRCNrEnd).Height
                .Line.Visible = True
                .Line.ForeColor.ObjectThemeColor = 13 'msoThemeColorText1
                .Line.ForeColor.TintAndShade = 0
                .Line.ForeColor.Brightness = 0
                .Line.Transparency = 0
            End With
            
        Next i
    End If
    '--
    
    oWorkbook.Sheets.Copy
    
    '----------------------------------------------------------------------------------------------------
    '--엑셀파일 화면에 보여줄지 여부 (기본값은 화면에 보여주지 않는다)--
    '----------------------------------------------------------------------------------------------------
    oWorkbook.Application.Visible = True
    '----------------------------------------------------------------------------------------------------

    oWorkbook.Close SaveChanges:=False
    
    On Error Resume Next
    
    Kill TempFileName
    
    Unload g_frmWait
    Call g_frmBPM.insertlog("Excel로의 조회 완료")
    cmdMenu(l_intExportExcel).Enabled = True

End If

Exit Function

err1:

On Error Resume Next
Unload g_frmWait

'' oWorkbook.Close SaveChanges:=False '' Kill TempFileName

cmdMenu(l_intExportExcel).Enabled = True
Call g_frmBPM.insertlog("Excel로의 조회 오류 :" & Err.Description)
MsgBox Err.Description, vbCritical, "오류창"

End Function

VBA Chart sample1 - bami74/me GitHub Wiki

⚠️ **GitHub.com Fallback** ⚠️

⚠️ GitHub.com Fallback ⚠️