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