[[20150521194629]] 『マクロ 写真貼り付け』(いわっき) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『マクロ 写真貼り付け』(いわっき)

以前、ネットでダウンロードしたマクロを、アレンジして自分なりに作った写真帳があります。
エクセル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://excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=169901&rev=0

 これと全く同じ質問かどうかは定かではないですけどテーマとしては同じですね。
 ↑のサイトでの回答を参考にしてはいかがでしょうか。

 で、いずれにしても、解決したら

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.