エクセルマクロでサイズを指定して画像を一括貼り付けしたいです。

前任者が作成したマクロです。写真のサイズを指定したいのですができません。私はマクロ初心者の為このコードは難しくて理解できません。どうかよろしくお願い致します。

Sub 複数画像の挿入()
Dim c, sr, sc, s, rr, pkfile, ar, ac, rc, ccc, ca0
On Error GoTo err
Set a = Application.InputBox("画像挿入するセル選択" _
& Chr(13) & Chr(10) & "複数選択可" _
, "複数画像の一括挿入(セル選択)", Selection.Address, , , , , 8)
Application.ScreenUpdating = False
a.Select
sr = Selection.Row
sc = Selection.Column
rr = sr
pkfile = Application.GetOpenFilename _
("すべての図(*.emf;*.wmf;*.jpg;*.jpeg;*.jfif;*.jpe;*.png;*.bmp;*.gif), *.emf;*.wmf;*.jpg;*.jpeg;*.jfif;*.jpe;*.png;*.bmp;*.gif", 2, "挿入する図の選択(複数選択可)", , True)
If Not IsArray(pkfile) Then MsgBox "ファイルが指定されていません", , "複数画像の一括挿入": End
For fi = 1 To UBound(pkfile)
If pkfile(fi) = False Then MsgBox "ファイルが指定されていません", , "複数画像の一括挿入": End
Next fi
n = ActiveSheet.Pictures.Count
Application.DisplayAlerts = False
ar = a.Address
ac = Range(ar).Count
fi = 1
If ac > 1 Then GoTo ech Else GoTo pc
ech:
ca0 = ""
For Each cc In ActiveSheet.Range(ar)
ca = Range(cc.Address).MergeArea.Address
rc = Range(ca).Rows.Count
ccc = Range(ca).Columns.Count
If rc > 1 Or cc > 1 Then
ca = Cells(Range(ca).Row + rc - 1, Range(ca).Column + ccc - 1).Address
End If
If ca0 = ca Then GoTo mne
ca0 = ca
ca = Range(cc.Address).MergeArea.Address
Range(ca).Select

g = ActiveSheet.Pictures.Insert(pkfile(fi)).Name
fl = pkfile(fi)
fi = fi + 1
If fi = UBound(pkfile) + 1 Then GoTo en

mne:
Next
Application.DisplayAlerts = True
a.Select
Exit Sub

pc:
For fi = 1 To UBound(pkfile)
ca = Cells(rr, sc).Address
Range(ca).Select
g = ActiveSheet.Pictures.Insert(pkfile(fi)).Name
fl = pkfile(fi)
rr = rr + 1
Next fi
Exit Sub
en:
Application.DisplayAlerts = True
Application.ScreenUpdating = False

a.Select
Exit Sub
err: MsgBox "選択が正しくありません"
End Sub

A 回答 (2件)

ついでに。


Sub 複数画像の挿入() の動作にちょっと興味を惹かれましたので
習作してみました。
期待動作が違っていたら、こちらは捨て置いてください。

Sub try()
  Dim a  As Range
  Dim cc As Range
  Dim W  As Single
  Dim H  As Single
  Dim mx As Long
  Dim fi As Long
  Dim i  As Long
  Dim pkfile

  On Error GoTo extLine

  With Application
    Set a = .InputBox("画像挿入するセル選択" & vbLf & _
             "複数選択可", _
             "複数画像の一括挿入(セル選択)", _
             Selection.Address, _
             Type:=8)
    pkfile = .GetOpenFilename("すべての図" & _
             "(*.emf;*.wmf;*.jpg;*.jpeg;*.jfif;" & _
             "*.jpe;*.png;*.bmp;*.gif)," & _
             "*.emf;*.wmf;*.jpg;*.jpeg;*.jfif;" & _
             "*.jpe;*.png;*.bmp;*.gif", 2, _
             "挿入する図の選択(複数選択可)", , True)
    If Not IsArray(pkfile) Then
      MsgBox "ファイルが指定されていません", , _
          "複数画像の一括挿入"
      GoTo extLine
    End If
    W = .InputBox("ヨコ", Type:=1)
    H = .InputBox("タテ", Type:=1)
    .ScreenUpdating = False
  End With

  mx = UBound(pkfile)
  fi = 1
  For Each cc In a
    If cc.Address = cc.MergeArea.Item(1).Address Then
      Call picIns(cc, pkfile(fi), W, H)
      fi = fi + 1
      If fi > mx Then
        Set cc = Nothing
        Exit For
      End If
    End If
  Next

  For i = fi To mx
    Set a = a(a.Rows.Count, 1).Offset(1)
    Call picIns(a, pkfile(i), W, H)
  Next
extLine:
  Set a = Nothing
  Application.ScreenUpdating = False
  With err()
    If .Number <> 0 Then MsgBox .Number & ":" & .Description
  End With
End Sub

Sub picIns(ByVal r As Range, _
      ByVal s As String, _
      ByVal W As Single, _
      ByVal H As Single)

  With ActiveSheet.Pictures.Insert(s).ShapeRange
    If (W > 0) And (H > 0) Then
      .LockAspectRatio = msoFalse
      .Width = W
      .Height = H
    ElseIf W > 0 Then
      .Width = W
    ElseIf H > 0 Then
      .Height = H
    End If
    .Left = r.Left
    .Top = r.Top
  End With
End Sub
    • good
    • 0
この回答へのお礼

ありがとうございました。
思い通りの動作になりました。感謝します。

お礼日時:2010/08/18 18:32

挿入する複数の画像全て同じサイズにしたい、という解釈で良いですか?



その前提で話をすすめます。
ご提示のマクロで望みの動作ができているなら、
サイズ指定マクロを作成して、その中で Sub 複数画像の挿入()を呼び出し、
最後にサイズ変更すれば良いです。

Sub macro()
  Dim W As Single 'ヨコ
  Dim H As Single 'タテ
  Dim mn As Long  '挿入前の枚数
  Dim i As Long

  W = Application.InputBox("写真サイズのヨコは?", Type:=1)
  H = Application.InputBox("写真サイズのタテは?", Type:=1)
  
  '挿入前の枚数を記憶しておいてSub 複数画像の挿入を呼び出す
  mn = ActiveSheet.Pictures.Count
  Call 複数画像の挿入

  With ActiveSheet.Pictures
    '挿入なしはExit Sub
    If .Count = mn Then Exit Sub
    For i = mn + 1 To .Count
      .Item(i).Select False
    Next
  End With
  '挿入写真のみ選択してサイズ変更
  With Selection.ShapeRange
    'W,Hとも指定した場合は縦横比変更して指定サイズに。
    If (W > 0) And (H > 0) Then
      .LockAspectRatio = msoFalse
      .Width = W
      .Height = H
    'Wのみ指定は縦横比を保持してWのみ変更
    ElseIf W > 0 Then
      .Width = W
    'Hのみ指定は縦横比を保持してHのみ変更
    ElseIf H > 0 Then
      .Height = H
    'どちらも指定しなければサイズ変更しない。
    Else
    End If
  End With
  ActiveCell.Activate
End Sub

こんな感じです。
上記はApplication.InputBoxを使ってユーザーにサイズを入力してもらう例ですが、
固定値でも構わない場合は、InputBoxを使わず直接Width,Heightを指定してください。
If (W > 0) And (H > 0) Then...等の条件分岐も必要なくなります。
    • good
    • 1

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセル(マクロ記録)

よろしくお願いします。
エクセルで、印刷マクロを作ろうと考えています。
             (基本、入門者です)
マクロ記録で、作っていますが、
記録終了するたびに「 印刷 」がかかっては、
用紙が何枚あっても足りません。

いい考えがありましたら、お教えください。
お願いします。

Aベストアンサー

#3の回答者です。

>出来たら、この i=1 の意味を教えていただけませんでしょうか?
単に、それはページ数です。

ヘルプを引用します。(PrintOut で調べました)

式.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)

From オプション 印刷を開始するページの番号を指定します。この引数を省略すると、最初のページから印刷します。
To オプション 印刷を終了するページの番号を指定します。この引数を省略すると、最後のページまで印刷します。

と出てきます。

Q画像をエクセルに貼り付けるマクロ

画像をエクセルに貼り付けるマクロ

複数の画像をエクセルに貼り付ける機会が多く、下記のマクロを利用しています。これは他人が作ったものでその人が今はいないため修正の仕方がわかりません。
これだとヨコに2個の画像で縦方向に画像が貼り付けられます。これをヨコに3個の画像で
縦方向に画像を貼り付けるようにしたいのですが、方法がわかりません。
お詳しい方どうかよろしくお願いします。

<現在>
1  2

3  4

5  6

<やりたいこと>
1  2  3

4  5  6

7  8  9

Sub Insertpic()

Dim strFilter As String
Dim Filenames As Variant
Dim pic As picture
Dim sc As Range
Dim i As Long
Dim j As Long
Dim k As Long

'「ファイルを開く」ダイアログでファイル名を取得
strFilter = "画像ファイル(*.jpg;*.jpeg;*.gif;*.bmp;*.png),*.jpg;*.jpeg;*.gif;*.bmp;*.png"
Filenames = Application.GetOpenFilename( _
FileFilter:=strFilter, _
Title:="画像の挿入(複数画像が選択できます)", _
MultiSelect:=True)
If Not IsArray(Filenames) Then Exit Sub

' 貼り付け開始セルを選択
'ActicveCellRange("C5").Select

' マクロ実行中の画面描写を停止
Application.ScreenUpdating = False
' 順番に画像を挿入
For i = LBound(Filenames) To UBound(Filenames)
Set pic = ActiveSheet.Pictures.Insert(Filenames(i))

'画像の大きさ指定
With pic.ShapeRange
.Height = 120#
.Width = 175#
.Rotation = 0#
End With

' 次の貼り付け先を選択
Select Case i Mod 2
Case 1 '奇数回目
ActiveCell.Offset(, 4).Select
Case 0 '偶数回目
ActiveCell.Offset(11, -4).Select
End Select

Set pic = Nothing
Next i

' 終了
Application.ScreenUpdating = True
MsgBox i - 1 & "枚の画像を挿入しました", vbInformation

End Sub

画像をエクセルに貼り付けるマクロ

複数の画像をエクセルに貼り付ける機会が多く、下記のマクロを利用しています。これは他人が作ったものでその人が今はいないため修正の仕方がわかりません。
これだとヨコに2個の画像で縦方向に画像が貼り付けられます。これをヨコに3個の画像で
縦方向に画像を貼り付けるようにしたいのですが、方法がわかりません。
お詳しい方どうかよろしくお願いします。

<現在>
1  2

3  4

5  6

<やりたいこと>
1  2  3

4  5  6

7  8  9

Sub ...続きを読む

Aベストアンサー

Select Case i Mod 2
Case 1 '奇数回目
ActiveCell.Offset(, 4).Select
Case 0 '偶数回目
ActiveCell.Offset(11, -4).Select
End Select

の部分を

以下のように修正するだけでOKです。


Select Case i Mod 3
Case 2
ActiveCell.Offset(, 4).Select
Case 1
ActiveCell.Offset(, 4).Select
Case 0
ActiveCell.Offset(11, -8).Select
End Select

Qエクセル マクロコードの記述の勉強

独学でエクセルでのマクロのコード記述ができるようになりたいのですが、コードがかける人はどのようにしてかけるようになったのでしょうか?

プログラミング関係にはまったくの初心者なので、入門本を立ち読み程度読んでみたのですが、「面白そうだが、かなり手強そう」というような印象でした。

現実的な問題として、実際にコードをかける人は、プログラミング関係の学校等で学んだ人ぐらいしかいないのでしょうか?

めざすレベルはエクセルでこうしたいと考えたものを調べながらコードをかける程度のレベルです。

Aベストアンサー

> 実際にコードをかける人は、プログラミング関係の
> 学校等で学んだ人ぐらいしかいないのでしょうか?

そんな事ないです。私も独学で覚えましたから。

エクセルはマクロ記録がありますので、実際の操作を記録して書かれたコードを追っていったり、書き直したり出来ます。
VisualBasicEditor画面でコードにカーソルを置き、F1キーを押すとVBAヘルプ(たしか標準ではインストールされないので追加インストールの必要がある)が開くので、意味を調べたり、サンプルコードを見たりして覚えて行きました。
ネットにも沢山サンプルがありますし。

変数の使い方とforやif等を覚えてマクロ記録を直すだけでも結構便利になります。

Qパワーポイントに貼り付けられる画像の最大サイズ

こんにちは。
今度社内向けの資料作成のためにパワーポイントを使うのですが、
その資料はすべてPhotoshop、Illustratorにて画像として作成して
パワーポイントに貼り付けようと思っています。

ですが今までパワーポイントを使ったことが無いのでよくわからないのですが、
Photoshop、Illustratorにて作成する際に何×何ピクセルで作成すればきれいに
パワポの1ページをぴったり埋めるように張り付けられるのでしょうか?
デザイン的な資料のため変に圧縮がかかってしまうことは避けたいです。

どなたかご教授ください。

Aベストアンサー

資料作成の資料がA4用紙としてお話しますと、

PPの印刷設定にある用紙サイズや向きがPPの
アウトラインとして表示されていますが、その隅
から隅まででA4サイズです。

Illustratorなら同じように設定し、その枠の中
ぴったりに画像を作成すればOKです。
IllustratorはAdobeのベクターデータ担当なので、
Pixelという概念があまりマッチしませんが。

Photoshopなら、解像度300dpiで印刷するとして
A4横は3508pixel×2480pixelでぴったりです。

PPの画面に画像を配置し、マウスで画像を
ドラッグするとアウトラインにスナップします。

ただ、印刷する際にレーザー等で印刷すると
フチが印刷されませんよね。
雑誌の断裁広告のようにしたいなら、フチなし
印刷対応プリンタで印刷するか、B3の中央に
解像度を若干下げてトンボ入りで印刷し、A4
サイズに切り落とすという手間のかかる方法
で何とかなります。

資料がスクリーン表示なら、72dpiや96dpiで
問題ありません。

Qエクセルについているマクロが出てこない・・・

 エクセルをひらき、ツール→マクロ→マクロでマクロの作成ができると聞きましたが、私のエクセル2002ではマクロのその機能が空欄状態です。復帰や回復できる方法を教えて下さい。

Aベストアンサー

(1)自分でマクロの記録を採る。
    ツールーマクロー新しいマクロの記録
(2)または他人がマクロの記録をとった。
   (3)他人がVBAコード(プログラム)を組んだ
    ツールーマクローVBEープログラム作成
場合に出てくる。(1)(2)(3)ともやっていないから、出てこないのは当然。
(1)なぞはマクロの画面でマクロー編集でコードが見れます。
ーーー
本でもWEBでも、マクロに関する本1冊か、「エクセル マクロ」でWEB照会して、勉強し。予備知識をえるべきです。

Qマクロを使って連続画像貼り付け→リンクを外す

マクロ初心者です。
マクロを使って連続画像貼り付けするシートを作成しました。

C:\Users\画像\に番号ごとの画像を置き、
n3:n5に画像番号を入力すると、指定範囲に画像が張りつくというものです。

他のPCで開くとリンクが無いため表示できません。
画像を貼り付けると同時にリンクを外して、画像として貼り付けておくことができますか?

今作成したマクロです。

Sub 図の挿入()
Const foldnm = "C:\Users\画像\"
Dim org As Range

'1
Set org = Range("b7:k31")
On Error Resume Next
With ActiveSheet.Pictures.Insert(foldnm & Range("n3").Value & ".jpg")

.Left = org.Left
.Top = org.Top
.Width = org.Width
.Height = org.Height

End With


'2
Set org = Range("b37:k61")
On Error Resume Next
With ActiveSheet.Pictures.Insert(foldnm & Range("n4").Value & ".jpg")


.Left = org.Left
.Top = org.Top
.Width = org.Width
'.Height = org.Height

End With


'3
Set org = Range("b70:k94")
On Error Resume Next
With ActiveSheet.Pictures.Insert(foldnm & Range("n5").Value & ".jpg")


.Left = org.Left
.Top = org.Top
.Width = org.Width
.Height = org.Height

End With

On Error GoTo 0




End Sub

マクロ初心者です。
マクロを使って連続画像貼り付けするシートを作成しました。

C:\Users\画像\に番号ごとの画像を置き、
n3:n5に画像番号を入力すると、指定範囲に画像が張りつくというものです。

他のPCで開くとリンクが無いため表示できません。
画像を貼り付けると同時にリンクを外して、画像として貼り付けておくことができますか?

今作成したマクロです。

Sub 図の挿入()
Const foldnm = "C:\Users\画像\"
Dim org As Range

'1
Set org = Range("b7:k31")
...続きを読む

Aベストアンサー

こんにちは。

現行の貼り付けられた画像に関してのリンクを取ることは分かりませんでしたが、Pictures.Insertには、リンクがついたままの状態で、埋め込みされます。そこで、AddPicture を使えばよいと思います。

xpression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
expression は、Shapes オブジェクト
FileName  文字列型 (String) の値を指定
LinkToFile 長整数型 (Long) の値を指定。True は、グラフィック ファイルとのリンク
   False の場合、図は独立したファイルのコピー

SaveWithDocument 長整数型 (Long) の値を指定。Trueは、リンクが設定された図は、それが挿入された文書と共に保存さる。Falseの場合、文書内のリンク情報だけを格納します。
 ※引数 LinkToFile に False を設定する場合、この引数には True を設定する必要があり。

Left, Top   単精度浮動小数点数型
Width, Height

添付画像は、埋め込みのリンクのあるなしを調べたものです。

'---------------
Sub PictureEnter()
 Dim arRng As Variant
 Dim Lf As Single, Tp As Single, Wd As Single, Ht As Single
 Dim FileName As String
 Dim i As Long
 Const PICFOLD = "C:\Users\Wendy\Pictures\"
'
 arRng = Array("B7:K31", "B37:K61", "B70:K94")
 
 For i = 0 To UBound(arRng)
  FileName = PICFOLD & ActiveSheet.Cells(i + 3, "N") & ".jpg"
 With ActiveSheet.Range(arRng(i))
  Lf = .Left
  Tp = .Top
  Wd = .Width
  Ht = .Height
  Set ret = ActiveSheet.Shapes.AddPicture(FileName, _
     False, _
     True, _
     Lf, Tp, Wd, Ht)
 End With
 Next i
End Sub

こんにちは。

現行の貼り付けられた画像に関してのリンクを取ることは分かりませんでしたが、Pictures.Insertには、リンクがついたままの状態で、埋め込みされます。そこで、AddPicture を使えばよいと思います。

xpression.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
expression は、Shapes オブジェクト
FileName  文字列型 (String) の値を指定
LinkToFile 長整数型 (Long) の値を指定。True は、グラフィック ファイルとのリンク
   False の場合、図は...続きを読む

Qエクセル2010で作成したマクロ

エクセル2010で作成したマクロブックがあります。
このエクセルを知人にメールで送りました。

知人のエクセルは2007です。
マクロブックのフォームボタンを押しても何も動作しない状況との事です。

エクセル2010で作成したマクロブックはエクセル2007と互換性がないのでしょうか?

素人の質問で申し訳ありませんが、ご指導お願いいたします。

Aベストアンサー

>エクセル2010で作成したマクロブックはエクセル2007と互換性がないのでしょうか?

ご相談の状況からすると、まずそういう事はありません。
まぁ2010でしか動かない内容であなたがマクロを作成した可能性は確かにありますが、その場合でも「何も動作しない」という事はありません。ふつーにエラーが出て止まります。



一応あなたの側で確認しておくべきポイントとしては、
○間違ったブックを送っていないか再確認する
 ・ちゃんとマクロを付けたブックを送ったか確認する
 ・名前を付けて保存でファイルの形式をマクロ有効ブックにして保存したのを送ったか再確認する
といったところをよく確認してください


先方に対してあなたが確認すべきポイントとしては、
○「何も起こらない」とは、具体的にどんな状況なのか再確認する
 ・ホントにうんともすんとも反応が無いということなのか
 ・実は何かエラーメッセージっぽいダイアログが現れて、OKをクリックしてもマクロが動作した様子が無いとかの状況では無かったか



具体的な状況が明らかになったら、ようやく対処を検討する事ができるようになります。
●そもそもどういうマクロを作成したのか、ご自分の作成したマクロをよく確認して、「反応が現れない」マクロを書いてたんじゃないのか再確認する
 たとえば無意味にon error resume nextのような仕込みをしてたりしないか
 たとえば不適切なデータに対して何も作動せずに終わってしまうようなそもそも作りにしてたんじゃないか
 とか。

●実は何かダイアログが出てたのなら、具体的にどんなダイアログなのか正確に聞き取って、あなたの方で対処を考える
 「マクロが無効になってる」のなら、マクロを有効にして実行するように伝える
 とか。

>エクセル2010で作成したマクロブックはエクセル2007と互換性がないのでしょうか?

ご相談の状況からすると、まずそういう事はありません。
まぁ2010でしか動かない内容であなたがマクロを作成した可能性は確かにありますが、その場合でも「何も動作しない」という事はありません。ふつーにエラーが出て止まります。



一応あなたの側で確認しておくべきポイントとしては、
○間違ったブックを送っていないか再確認する
 ・ちゃんとマクロを付けたブックを送ったか確認する
 ・名前を付けて保存でファイル...続きを読む

Qパワーポイントにファイルサイズが大きくならないように画像を貼り付けたい・・・

宜しくお願いします。
オフィス2003を利用しています。
スキャンしたPDFの画像などをファイルサイズが小さくなるように
パワーポイントに貼りたいのですが
”形式を選択して貼り付け”

Windowsメタファイル
拡張子メタファイル
デバイスに依存しないビットマップ
ビットマップ


のどれが一番ちいさくなるのでしょうか?

上記のファイルの違いも含めて教えて頂ければと思います
宜しくお願いします

Aベストアンサー

> 貼り付けてからサイズを小さくすることはできないでしょうか?

ファイルを「名前を付けて保存」する時や「図」ツールバーにある「図の圧縮」を使う方法があります。

「図を圧縮してファイル サイズを小さくする」
http://www.microsoft.com/japan/athome/magazine/ucontents/users/tips/office/139.mspx
「ファイルサイズが大きいとPCトラブルの原因になりますので、ご覧ください」
http://csp.umin.ne.jp/document2007/filede.html

> ベクトルデータとはなんでしょうか・・・?
> ベクトルデータではないデータもあるということですか?

下記URLのページをご参照ください。

「1.1 画像ファイルの性質」
http://cns-guide.sfc.keio.ac.jp/1999/7/1/1.html#SECTION08111000000000000000
「1.2 画像ファイル形式」
http://cns-guide.sfc.keio.ac.jp/1999/7/1/2.html

> 貼り付けてからサイズを小さくすることはできないでしょうか?

ファイルを「名前を付けて保存」する時や「図」ツールバーにある「図の圧縮」を使う方法があります。

「図を圧縮してファイル サイズを小さくする」
http://www.microsoft.com/japan/athome/magazine/ucontents/users/tips/office/139.mspx
「ファイルサイズが大きいとPCトラブルの原因になりますので、ご覧ください」
http://csp.umin.ne.jp/document2007/filede.html

> ベクトルデータとはなんでしょうか・・・?
> ベクトルデータ...続きを読む

Qエクセルで作成したマクロが他のシートに反映しない

必要に迫られ始めてマクロをエクセル上で作成してみました。(初心者)
そのマクロを違うエクセルファイル上でも反映させたいのですが
マクロを作ったおおもと(最初)のファイルを閉じてしまうと違うエクセルファイルを開いてもマクロが反映されていません。
マクロでの命令内容としては 
エクセル上の数字の羅列→グラフ作成→上書き保存 という手順で作りました。
他のエクセルファイルも同じように数字の羅列があります。それを同じ作業(グラフ作成→上書き保存)したいのです。
一度作ったマクロを他のエクセルファイルにも反映させるにはどうしたら良いのでしょうか?
説明がわかりにくくてすみません。
よろしくお願いします。

Aベストアンサー

マクロの記録先を「個人用マクロブック」にするのが良いと思います。
一回マクロの記録を行い「保存先」を「個人用マクロブック」にします。するとPERSONAL.XLSという特別なブックが作成されます。

このブックの標準モジュールシートに先に作ったマクロを貼り付けてください。

そうすればエクセルを開くと、どのブックでもマクロが実行可能になります

Qエクセルで作成した表のパワーポイントへの貼り付け

エクセルで作成した表に罫線をつけてからパワーポイントへコピー・貼り付けすると、罫線の右端と
下端が矢印になってしまいます。これを防ぐ、または修正する方法はありますか。
また、コピーでなく、表自体をパワーポイントに取り込んで、パワーポイント内で修正するやり方はありますか。
エクセル・パワーポイントともに2003年版、
OSはwindows2000です。

Aベストアンサー

> エクセルで作成した表に罫線をつけてからパワーポイントへコピー・貼り付けすると、罫線の右端と
下端が矢印になってしまいます。これを防ぐ、または修正する方法はありますか。

端部が矢印と言うことは、表に付けた罫線とは、オートシェイプですか??

「Excel2003~罫線を自由自在に~」
http://nanapi.jp/23104/

> コピーでなく、表自体をパワーポイントに取り込んで、パワーポイント内で修正するやり方はありますか。

PowerPointで、「編集」メニュー→「形式を選択して貼り付け」→「Microsoft Office Excel ワークシートオブジェクト」で貼り付けて下さい。

貼り付けられたオブジェクトをダブルクリックすれば、一時的にExcelのメニューバーに変わり、編集が可能になります。
オブジェクト以外の部分をクリックすると、本来のPowerPointに戻ります。

下記URLのページの説明は、Wordに貼り付けていますが、WordをPowerPointに置き換えてお読み下さい。

「[ワード]表をエクセルの機能付きでワードに貼り付けたい」
http://azby.fmworld.net/usage/windows_tips/20051102/

> エクセルで作成した表に罫線をつけてからパワーポイントへコピー・貼り付けすると、罫線の右端と
下端が矢印になってしまいます。これを防ぐ、または修正する方法はありますか。

端部が矢印と言うことは、表に付けた罫線とは、オートシェイプですか??

「Excel2003~罫線を自由自在に~」
http://nanapi.jp/23104/

> コピーでなく、表自体をパワーポイントに取り込んで、パワーポイント内で修正するやり方はありますか。

PowerPointで、「編集」メニュー→「形式を選択して貼り付け」→「Microsoft Office Ex...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報