| |
以前、ネットでダウンロードしたマクロを、アレンジして自分なりに作った写真帳があります。
エクセル2010では、リンクで貼り付けを行うため、困っています。
ネットで調べたところ、Pictures.Insertからshapes.Addpictureに換えれば、リンクではなく、エクセルに保存することが分かったのですが、マクロの組み換えが、まったくわかりません。
下記にマクロを貼り付けますので、どなたか組み換えをしていただけませんか？
宜しくお願いします。
Sub 写真貼付()
Dim myPath As String
Dim myImage As Variant
Cells(y1, x1).Select
myPath = "C:"
ChDir myPath
myImage = Application.GetOpenFilename _
(filefilter:="JPEG形式(*.jpg;*.bmp), *.jpg;*.bmp", _
Title:="写真を選択してください")
If myImage <> False Then
ActiveSheet.Pictures.Insert(myImage).Select
Selection.Cut
Cells(ActiveCell.Row, ActiveCell.Column).Select
ActiveSheet.Paste
Selection.Width = Range(Cells(y1, x1), Cells(y2, x2)).Width
Selection.Height = Range(Cells(y1, x1), Cells(y2, x2)).Height
End If
Exit Sub
End Sub
Sub 写真貼付1()
y1 = 2: x1 = 8: y2 = 10: x2 = 22
写真貼付
End Sub
Sub 写真貼付2()
y1 = 2: x1 = 23: y2 = 10: x2 = 37
写真貼付
End Sub
Sub 写真貼付3()
y1 = 13: x1 = 8: y2 = 21: x2 = 22
写真貼付
End Sub
Sub 写真貼付4()
y1 = 13: x1 = 23: y2 = 21: x2 = 37
写真貼付
End Sub
Sub 写真貼付5()
y1 = 24: x1 = 8: y2 = 32: x2 = 22
写真貼付
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
