2016-05-04 1 views
0

グラフを貼り付けるのに苦労します。私は "With TempChrt"のさまざまな組み合わせを試して、無駄をなくすために.pasteを取得しました。 おそらく私は問題を解決するために私の肘の周りを回っている場合は、私は提案に開放されています。エクスポート用の範囲画像をグラフ領域に貼り付けることができません

本質的には、特定のサイズ、背景色、および値を持つセルを表示目的でのみユーザーフォームに転送したいとします。また申し訳ありませんが、私は問題のコードのビットで動作する太字または斜体のフォントを取得できませんでしたが、ハングアップする行は、 "TempChrt"の後に ".Paste"です。メソッド '_chart'の '貼り付け'メソッドが失敗しました。

Private Sub UserForm_Initialize() 
    Dim i As Byte 
    Dim rng1 As Range, rng2 As Range 
    Dim wkshtDC As Worksheet 
    Dim TempChrt As Chart 
    Dim TempChrtNm As String 

    Set wkshtDC = Worksheets("Data & Calcs") 
    wkshtDC.Unprotect "123" 
    Set TempChrt = wkshtDC.Shapes.AddChart.Chart 
    TempChrtNm = TempChrt.Parent.Name 
    With TempChrt.Parent 
    .Width = 87.12 
    .Height = 285.12 
    .Top = wkshtDC.Range("BC28").Top 
    .Left = wkshtDC.Range("BC28").Left 
    End With 
    For i = 1 To 4 
    Set rng1 = wkshtDC.Range("BE28").Offset(0, i) 
    Set rng2 = wkshtDC.Range("BE46").Offset(0, i) 
    If i <> 1 Then 
     TempChrt.Shapes.Range(Array("chart")).Delete 
    End If 
    wkshtDC.Range(rng1.Address, rng2.Address).CopyPicture xlScreen, xlPicture 
    With TempChrt 
     .Paste 
     .Export Filename:="G:\MVOsafe\Ramp-up\misc\TempMatrix" & i & ".bmp" 
    End With 
    Me.Controls("Frame" & i).Picture = LoadPicture("G:\MVOsafe\Ramp-up\misc\TempMatrix" & i & ".bmp") 
    Next i 
    TempChrt.Parent.Delete 
    wkshtDC.Protect "123" 

End Sub 

答えて

0

は...それを手に入れた

With TempChrt 

wkshtDC.Range(rng1.Address, rng2.Address).CopyPicture xlScreen, xlPicture 
    wkshtDC.ChartObjects(TempChrtNm).Activate 
    With ActiveChart 
     .Paste 
     .Export Filename:="G:\MVOsafe\Ramp-up\misc\TempMatrix" & i & ".bmp" 
    End With 

TempChrtNm = TempChrt.Parent.Name 
に変更しました
関連する問題