ここから本文です

エクセルで、画像を加工する作業を自動化したいのですが マクロのやり方がよくわ...

pa_********さん

2016/11/908:38:04

エクセルで、画像を加工する作業を自動化したいのですが
マクロのやり方がよくわかりません。
エクセル2010、開発タブまでは作りました。
マクロで簡単には作れないのでしょうか。

よろしくお願いします。

補足説明不足ですみません。

①画像(写真)を挿入
②サイズ・枠デザイン・色を修正
③写真の前面に一定のコメントを入れる
この作業を毎回行っているのですが、写真を挿入後、②③の作業をボタン一つで自動的にできるようにしたいです。

閲覧数:
68
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

kky********さん

2016/11/1009:31:28

どういう加工をしたいのか具体的な事がわかりません。

下記マクロは画像ファイルを選択して、B2セルに元の縦横比で入れ、外枠線をつけ、下のB3セルにコメントを入れるものです。

参考になるのではないかと思います。

Sub Sample()
Dim fname As String
Dim wkpo As Object
Dim shp As Shape
Dim ww As Long
Dim wh As Long
Dim wr As Double
Dim com As String
com = "これが写真です"
fname = Application.GetOpenFilename(FileFilter:="画像 ,*.jpg; *.gif; *.bmp", MultiSelect:=False)
If fname = "False" Then Exit Sub
Application.ScreenUpdating = False
'写真の比率
Set wkpo = LoadPicture(fname)
wh = Range("B2").Height
wr = wh / wkpo.Height
ww = Int(wkpo.Width * wr)
With Range("B2")
Set shp = ActiveSheet.Shapes.AddPicture(Filename:=fname, _
LinkToFile:=False, SaveWithDocument:=True, _
Left:=.Left, Top:=.Top, Width:=ww, Height:=wh)
End With
'外枠
With shp.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 255)
.Weight = 2
End With
'コメント
Range("B3").Value = com
Application.ScreenUpdating = True
End Sub

どういう加工をしたいのか具体的な事がわかりません。...

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる