|
以前、他のサイトに画像を回転させてImageに取込む
質問に付いていたレスのコードを少し変更したもの
です。画像の縦横のサイズは変更が必要になると思
います。
その場合は、
h =
w =
の部分を変更してください。
Private Sub Workbook_Open()
Dim cha As ChartObject
Dim s As String
Dim t As String
s = "C:\AAA.JPG"
t = Split(s, ".")(0) & "-2.jpg"
ActiveSheet.Pictures.Insert(s).Name = "gazou"
With ActiveSheet.Shapes("gazou")
.IncrementRotation 90
.CopyPicture xlScreen, xlPicture
h = .Height * 1
w = .Width * 1
End With
Set cha = ActiveSheet.ChartObjects.Add(0, 0, w, h)
cha.Chart.Paste
cha.Chart.Export Filename:=t
UserForm1.Image1.Picture = LoadPicture(t)
cha.Delete
ActiveSheet.Shapes("gazou").Delete
Kill t
UserForm1.Show
End Sub
|
|