0
既に存在するチャートの背景に画像を追加、配置、サイズ変更する必要があります。VBA - 画像をチャートの背景として追加、配置、サイズ変更する
Sub Add_Picture()
Application.ScreenUpdating = False
Dim Input_Data As Worksheet
Set Input_Data = ThisWorkbook.Sheets("Input Data")
'### Find Chart
Dim chrt As ChartObject
Set chrt = Input_Data.ChartObjects(Input_Data.ChartObjects.Count) ' finding the only chart on the sheet
'### Add the picture
chrt.Chart.ChartArea.Format.Fill.UserPicture ("C:\Users\z188018\Desktop\Untitled.png") ' adding the picture
chrt.Chart.SetElement (msoElementPlotAreaNone) 'to show the picture (otherwise hidden behing a white background)
'### Center the picture
'### Resize the picture
Application.ScreenUpdating = True
End Sub
私はすでに何度も試してみましたが、私は空のセクションを残した理由を言及する価値は何も、それはません。私は、このコードの一部とを実行した後、手動でそれを行うことができます。
- 右の画像をクリックして
- 「チャートの書式設定エリア」
- が を
- 「ピクチャーやテクスチャ塗りつぶし」を「塗りつぶし」 ：
- マクロを記録することは私にこれだけを与え、
それでも「ストレッチオプション」で遊んでみてください
With ActiveSheet.Shapes("Chart 7").Fill
.Visible = msoTrue
.UserPicture "C:\Users\z188018\Desktop\Untitled.png"
.TextureTile = msoFalse
.RotateWithObject = msoTrue
End With
私はそれを適応させることはできません。
を求めることができ、コミュニティがあるのでhttps://www.gimp.org/tutorials/Basic_Batch/
Gimpもstackoverflowのタグを持って、私はおそらく、実際にこれを書いあまり役に立たないんだけど、あなたは、マクロの記録を簡単に試してみましたあなたが探しているものを満たすためにプロセスを実行し、それを修正しますか？ – user2027202827こんにちはhobenkr、私はあなたのフィードバックを反映するために私の質問を編集しました。ありがとう！ – Trenera
Hmmは思ったよりずっと簡単だと思うようです。変更を元に戻してから、マクロを実行して変更を元に戻しましたか？そうすれば、マクロが実際に意図したとおりに動作することを少なくとも確認することができます。もしそうなら、あなたがしようとしているものがかなりのデフォルト値に合っているかもしれないと示唆するかもしれません。 – user2027202827