Excel (一般機能)

Excelの一般機能に関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
数個あるセル上に、透明なトレース紙のような状態を置いて作業できないか
投稿日時: 17/11/18 15:05:43
投稿者: カレンダー

お世話になります。
 こんなことはできるでしょうか、できたら方法を教えてください。
 
 例えば、「数独ゲーム」の枠を雑誌などから写真を撮り、それを同じサイズのセルの上に透明トレース紙のように置き、写真上の空欄の下のセルに入力できないか ということです。 描画ツールを使うのでしょうか?
 
よろしくお願いいたします。

回答
投稿日時: 17/11/18 15:49:05
投稿者: WinArrow
投稿者のウェブサイトに移動

手順
(1)セル範囲の各々のセルサイズを意図するサイズに設定します。
(2)セル範囲にを罫線(格子)を設定します。
(3)セル範囲を選択して、図のコピー
(4)図の貼り付け
これで透明な図形が作成できますが、図はセルの上に載っているだけで、図にはデータはできませんが、
図の下のセルもマウスでクリックできません。
図が載っていないセルを選択して「→」等で移動することになります。
 

回答
投稿日時: 17/11/18 20:19:45
投稿者: んなっと

現在の画像を背景にした新規シートを作成するマクロですが、
これとは違いますか?
画像が背景になりますので、クリックの邪魔にはなりません。
 
Sub test()
  Dim myName As String
  Dim Zm
  Dim mySheet As Worksheet
  Dim Rng As Range
  Dim tmpSheet As Worksheet
  Dim Shp As Shape
  myName = ActiveWorkbook.Path & "\0000001.png"
  Application.ScreenUpdating = False
  Zm = ActiveWindow.Zoom
  ActiveWindow.Zoom = 100
  ActiveWindow.DisplayGridlines = False
  ActiveSheet.Copy Before:=ActiveSheet
  Set mySheet = ActiveSheet
  Set Rng = mySheet.Range("A1:V28")
  Rng.CopyPicture xlScreen, xlPicture
  Set tmpSheet = Worksheets.Add
  With tmpSheet.ChartObjects.Add(0, 0, Rng.Width * 2, Rng.Height * 2).Chart
    .Paste
    .Export myName, "png"
  End With
  Application.DisplayAlerts = False
  tmpSheet.Delete
  Application.DisplayAlerts = True
  With Rng
    .Interior.PatternColorIndex = xlColorIndexNone
    .Borders.LineStyle = xlLineStyleNone
  End With
  With mySheet
    .SetBackgroundPicture myName
    For Each Shp In .Shapes
      Shp.Delete
    Next
  End With
  ActiveWindow.Zoom = Zm
  Application.ScreenUpdating = True
End Sub

投稿日時: 17/11/18 22:14:17
投稿者: カレンダー

 WinArrow 様  んなっと 様  早速のご回答をありがとうございます。
 
 
WinArrow 様 の方法を試したら、やりたいことが出来ました! 大変ありがとうございました。
 
 
んなっと 様 のご回答中の「マクロ」はさっぱり私には勉強不足で分かりません。悪しからずです。
 
 
お世話になりました。