[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロ 写真貼り付け』(いわっき)
以前、ネットでダウンロードしたマクロを、アレンジして自分なりに作った写真帳があります。
エクセル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
< 使用 Excel:Excel2013、使用 OS:Windows8 >
これと全く同じ質問かどうかは定かではないですけどテーマとしては同じですね。 ↑のサイトでの回答を参考にしてはいかがでしょうか。
で、いずれにしても、解決したら
http://www.vbalab.sakura.ne.jp/vbaqa/c-board.cgi?cmd=ntr;tree=77103;id=excel
こちらのほうにも報告をいれておかれたらよろしいかと。
(β) 2015/05/21(木) 19:58
> ActiveSheet.Pictures.Insert(myImage).Select > Selection.Cut > Cells(ActiveCell.Row, ActiveCell.Column).Select > ActiveSheet.Paste
ということは、リンク貼り付けで Insert した画像を Cut して、貼り付けてるのだから、 Excelシートにしっかり貼り付いていますよね? . (kanabun) 2015/05/21(木) 20:43
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.