いつもお世話になっております。
以下のような操作をエクセルにおいて行いたいのですが。
(1)エクセルのセルをクリック!
(2)エクスプローラー起動!画像データを選択!
(3)セルに合わせて縦横変倍をかけてデータ(JPGデータ)を貼付!
同様の操作が可能な以下のVBAが公開されていたので使わせて頂こうと考えているのですが、操作方法が分かりません。
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "Sheet1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Cancel = True
'===============画像選択
myF = Application.GetOpenFilename _
("jpg bmp tif png gif,*.jpg;*.bmp;*.tif;*.png;*.gif", , "画像の選択", , False)
If myF = False Then
MsgBox "画像を選択してください(終了)"
Exit Sub
End If
'===============画像の掃除
For Each mySP In ActiveSheet.Shapes
myAD1 = mySP.TopLeftCell.MergeArea.Address
myAD2 = Target.Address
If myAD1 = myAD2 Then mySP.Delete
Next
'===============画像の貼り付け
Set mySP = ActiveSheet.Pictures.Insert(myF)
'===============タテヨコの縮尺を保持
myHH = Target.Height / mySP.Height
myWW = Target.Width / mySP.Width
If myHH > myWW Then
mySP.Height = mySP.Height * myWW
mySP.Width = Target.Width
Else
mySP.Height = Target.Height
mySP.Width = mySP.Width * myHH
End If
'===============中央へ調整
myHH2 = (Target.Height / 2) - (mySP.Height / 2)
myWW2 = (Target.Width / 2) - (mySP.Width / 2)
mySP.Top = Target.Top + myHH2
mySP.Left = Target.Left + myWW2
Set mySP = Nothing
End Sub
作成したエクセルのVBエディタを開く⇒標準モジュールの作成⇒上記VBAをコピペ・・・
正直わかりません。昨日一晩かけて調べたのですがわかりません。
どなたか宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) Excel2019 マクロを使用し画像を貼り付けした際のリンク切れについて 2 2022/11/15 16:14
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パワーポイントからイラストレ...
-
JWWでの画像同梱 ファイルが開...
-
eps 保存でジャギーが出て困っ...
-
PDFのOCR化でファイルサ...
-
ロウソク足・グラフ作成ソフト...
-
InDesignCS5にExcel作成表の配置
-
tiffファイルがくすんで見える...
-
AutoCADで作成した図面を印刷す...
-
WordでA3の2倍分に印刷する方法
-
JWWで文字をカラー印刷するのは...
-
印刷工程について
-
AutoCADで文字が薄い灰色になる
-
インデザインのページツールの...
-
JW-CAD (win 灰色の線を印刷
-
DVD-R表面の文字を消す方法
-
このようにIllustratorで、シュ...
-
jwcadで印刷時の画面の色を白か...
-
4色使用のイラストレーターのデ...
-
JwCad用紙の向き
-
同人誌での写植について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワーポイントからイラストレ...
-
ワードのデータをIllustratorに...
-
JWWでの画像同梱 ファイルが開...
-
【白黒のモノラル画像データ】...
-
tiffファイルがくすんで見える...
-
AutoCAD2009LTで塗り潰しハッチ...
-
DynaCADに挿入した画像が表示さ...
-
Adobe Illustrator cs リンクパ...
-
AutoCADでOLEオブジェクトの挿...
-
PDFのOCR化でファイルサ...
-
AutoCAD2002にJPEG画像データを...
-
eps 保存でジャギーが出て困っ...
-
PDFを軽くしたい(急いでます)
-
BlueTrendにラスターデータとし...
-
CADにデータを貼り付ける方法で...
-
ロウソク足・グラフ作成ソフト...
-
photoshopで画像加工後、autoca...
-
イラレで画像を配置すると埋め...
-
添付されたJW_WINの画像が開か...
-
excel2013で印刷すると荒くなる
おすすめ情報