[[20130904141855]]　『エクセル2010ではできない貼り付け』（めだか）　ページの最後に飛ぶ

『エクセル2010ではできない貼り付け』（めだか）

会社のパソコンのエクセルには2003バージョンと2010バージョンがあります。
2003でできるものが2010ではできないことがあります。
やり方を変えればできるようになるのか教えてください。

シート1のＡ１の部分に図形（印鑑みたいな感じの図形）を作りコピーをし
シート2～10まで選択をし、同じＡ１の部分で貼り付けを選択すると
シート2～10まで同じ場所に図形を貼り付けることが2003バージョンでは
できました。

同じ方法で2010バージョンで行うと、操作を行ったシートにしか貼り付け
られません。

図形をどうにか複数シート選択状態で一括で貼れる方法はないでしょうか？
とれとも1シートずつ貼り付け作業をするしかないでしょうか？
もしくは別の方法で効率のよい方法はないでしょうか？

2003バージョンの入ったパソコンが近日中に処分されることになり
作業効率が悪くなることが見込まれるため大変困っています。

教えてください。よろしくお願いいたします。

操作ではできませんね。コピーして貼り付けるマクロにするとか？

しかし、そもそも印鑑みたいなものならば1シートずつ内容確認してから、
検認として貼り付けるものではないですか？無条件コピペじゃ印鑑の意味なし。
(???)

 その図形はどのようにして作ったものか？

 オートシェイプ、クリップアート、ファイルから挿入(JPG画像)の場合2003で作業グループ状態で貼り付けようとすると
 「データを貼り付けできません」とメッセージがでてしまって貼り付けを行えないが。
 (ねむねむ)

 すまない。
 図形そのものをコピーして貼り付けしようとしたためだった。

 A1セルに図形が含まれるような状態でセルをコピー・貼り付けで再現できた。
 (ねむねむ)

すいません。紛らわしいことを書いてしまって。
印鑑みたいなもので、印鑑ではありません。ですので、検印関係ではありません。

テキストボックスとオートシェイプを組み合わせて作成してます。

やはりダメなんですかね。バージョンアップしたら不便になる機能ってあるんですね。

 回答じゃないが。
 どうやら複数シートを選択してコピー機能を使った場合、
 自分のシートのセル番号をコピーしていることが判明しました。

 例：シート1のA1に「あ」　シート2のA1に「○の図形」
 　　シート1と2を選択
 　　シート2のA1をコピー
 　　シート2のB1に貼り付け
 　　→結果、シート1のB1に「あ」　シート2のB1に「○の図形」

 そりゃコピーされないわな…
 (1111)

 今回の場合は作業グループにする前にコピーを行い、そのあとに作業グループ化して貼り付けなので事情が異なると思うが。
 (ねむねむ)

マクロで、グループ化したオブジェクトを他シートに貼る例。
元となるオブジェクトがあるシートのマクロとして貼り付けて実行。
なお、オブジェクトが1つしかないのを前提としています。

 Sub test()
    Dim wkSheet As Worksheet
    Dim S As Shape

    For Each S In Shapes
        If S.ShapeStyle = msoShapeStyleMixed Then
            S.Copy
            For Each wkSheet In Worksheets
                If wkSheet.Name <> Me.Name Then
                    wkSheet.Paste
                    With wkSheet.Shapes(wkSheet.Shapes.Count)
                        .Left = S.Left
                        .Top = S.Top
                        .Width = S.Width
                    End With
                End If
            Next
            Exit For
        End If
    Next
End Sub
(???)

うわ、すごいマクロですね。
私では到底思いつかない。
オブジェクト1つなので、試してみます。
ありがとうございました。
（めだか）

コメント返信：

[ 一覧(最新更新順) ]

[[20130904141855]] 『エクセル2010ではできない貼り付け』（めだか） ページの最後に飛ぶ

[[20130904141855]]　『エクセル2010ではできない貼り付け』（めだか）　ページの最後に飛ぶ