Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22566 / 76733 ←次へ | 前へ→

【59547】Re:図面の挿入および該当なしの対応策
発言  kanabun  - 08/12/18(木) 10:38 -

引用なし
パスワード
   ▼タテヤマ さん:
こんにちは。

>現在、実行時エラー'1004'
>Picturesクラスのinseretメソットが失敗しました。
>と表示されるのですが、

よく分かりませんが、画像を挿入するアドレスを文字列で渡してるけど
そこには、どのシートのセル範囲か、シートの情報がないですよね?
シート情報付きで、セル範囲そのものを渡したら どうでしょうか?


>  '***画像ファイルの挿入***
>  Call MovePicture(iP, iSheet, iC)

   ↓ に変更し、

  '***画像ファイルの挿入***
  InsertPicture iP, ActiveWorkbook.Worksheets(iSheet).Range(iC)


'***目的のシート(セルの範囲)へ画像貼り付け***
Sub InsertPicture(picPath As String, ByVal Location As Range)
 With Location.Worksheet.Pictures.Insert(picPath).ShapeRange
  .LockAspectRatio = msoFalse
  '.Parent.Visible = msoTrue
  .Left = Location.Left
  .Top = Location.Top
  .Height = Location.Height
  .Width = Location.Width
 End With
End Sub


>どのような変更を行えばよいのかと、図面の型式が該当する図面データY:\図面にない場合はどのようなError表示書式を追加すればよいのか、

呼び出し先 InsertPicture プロシージャ内で、
最初に 指定の画像があるか Dir関数を使ってチェックして、
無ければ、Exitするとか?

  If Len(Dir(picPath)) = 0 Then Exit Sub

4 hits

【59546】図面の挿入および該当なしの対応策 タテヤマ 08/12/18(木) 9:49 質問
【59547】Re:図面の挿入および該当なしの対応策 kanabun 08/12/18(木) 10:38 発言
【59559】Re:図面の挿入および該当なしの対応策 タテヤマ 08/12/18(木) 17:39 お礼
【59560】Re:図面の挿入および該当なしの対応策 kanabun 08/12/18(木) 18:05 発言
【59791】Re:図面の挿入および該当なしの対応策 タテヤマ 09/1/8(木) 18:12 お礼

22566 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free