みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

写真をリンクではなく挿入する

リンク元の写真を削除して開くと
「元のリンクされたイメージを表示できません・・・・」と、なります。
ならないようにするための、挿入方法を教えてください。
拙策な質問ですが、よろしくお願いします。
Application.ScreenUpdating = False
Dim EndRow As Long
Dim j As Integer
Dim shp As Shape
Dim myFolder As String, myFile As String
For Each shp In ActiveSheet.Shapes
EndRow = Application.Max(EndRow, shp.BottomRightCell.Row)
Next
Worksheets("施工写真【T】").Cells((EndRow) + 3, 3).Activate
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "*** 対象フォルダを選択し、[OK]をクリック ***"
.InitialFileName = "D:\"
If .Show = True Then
myFolder = .SelectedItems(1)
myFile = Dir(myFolder & "\*.jpg")
Do While myFile <> ""
ActiveSheet.Pictures.Insert(myFolder & "\" & myFile).Select
With Selection
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Width = ActiveCell.Width * 14
.Height = ActiveCell.Height * 8
End With
ActiveCell.Offset(11, 0).Activate
myFile = Dir()
Loop
Else
Exit Sub
End If
End With
写真整理.写真NO.Value = ((EndRow) / 11)
Worksheets("施工写真【T】").Cells(1, 1).Value = 1
For j = 11 To EndRow Step 11
Worksheets("施工写真【T】").Cells(j, 1).Value = Cells(j - 11, 1) + 1
Next j
ActiveCell.Offset(0, 0).Activate
Unload Me
写真整理.Show vbModeless
Application.ScreenUpdating = True

投稿日時 - 2018-04-03 11:01:32

QNo.9484580

すぐに回答ほしいです

質問者が選んだベストアンサー

Pictures.Insert ではなく、Shapes.Addを使ってください。
詳細や、注意点までMSのサイトに載っています。
#リンク先のタイトルではExcel2010ですが、Excel2016でも同様です。

https://support.microsoft.com/ja-jp/help/2396509

投稿日時 - 2018-04-03 11:53:57

お礼

早速の回答ありがとうございました。
解決しました。

投稿日時 - 2018-04-03 12:57:12

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問