写真をリンクではなく挿入する
リンク元の写真を削除して開くと
「元のリンクされたイメージを表示できません・・・・」と、なります。
ならないようにするための、挿入方法を教えてください。
拙策な質問ですが、よろしくお願いします。
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
お礼
ありがとうございました。これでプログラムを完成することができます。
補足
質問者です。Set s = Sheet1.Shapes.AddPicture(filename, msoTrue, msoTrue, 10, 10, 100, 100)・・・の行で実行時エラー’４２４’オブジェクトが必要です・・と出ることがあります。原因はどこにあるのでしょうか。