オートプロパティに3dプロパティを適用できません

Question

Excelで作業しているワークブックには、VBAで設定された3Dプロパティを使用したグラフィックが使用されています。私は、ブック内の画像を変更し、そして今、Excelが、それは次のコード行のいずれかを実行できないと文句を言います：

Selection.ShapeRange.ThreeD.Depth = fsdoord 
Selection.ShapeRange.ThreeD.ExtrusionColor.RGB = carcol 
Selection.ShapeRange.ThreeD.PresetLightingDirection = msoLightingBottom 

生成されたエラーが

Run-time error '70': 

Permission denied 

である私はまだすべて適用することができますこの形状に対する他の特性。 3dプロパティに関連する行を実行しようとするとエラーになります。

これはなぜ起こっているのか、誰にも分かりませんか？
ありがとうございます...

Answer 1

オーケーかもしれないが、私は、ソートの問題を発見しました。イメージを置き換えたとき、元のイメージを削除し、挿入>イメージ>ファイルから新しいイメージを挿入しました。イメージを置き換えたときに元のイメージに既に適用されているオートシェイプの塗りつぶしの色を変更するだけで、それは機能しました（つまり、すべてのプロパティを保持し、塗りつぶしを変更しました）。

Answer 2

ShapeRangeは実際にシェイプのコレクションです。シェイプオブジェクトを取得するには、もう1つレベルをドリルダウンする必要があります。

Sub Example() 
    Dim ws As Excel.Worksheet 
    Dim shp As Excel.Shape 
    Set ws = Sheet1 
    Set shp = ws.Shapes(1) 
    shp.ThreeD.Depth = 10.5! 
    shp.ThreeD.ExtrusionColor.RGB = &HF08300 
    shp.ThreeD.PresetLightingDirection = msoLightingBottom 
End Sub 
Sub Example2() 
    Dim shpRng As Excel.ShapeRange 
    Dim shp As Excel.Shape 
    Set shpRng = Selection.ShapeRange 
    Set shp = shpRng.Item(1) 
    shp.ThreeD.Depth = 25.5! 
    shp.ThreeD.ExtrusionColor.RGB = &HFF0083 
    shp.ThreeD.PresetLightingDirection = msoLightingBottom 
End Sub 

Answer 3

がThreeDFormatオブジェクトのヘルプページで発言あります（プロパティとして、あなたは。Excel.Shapeに適用する使用しようとしている）、それはMSDNページに繰り返されていますhere

あなたがすることはできませんいくつかの種類の図形にフォーマット の3次元を適用します。 、たとえば斜めの図形または 複数の離散的なパスです。このような形状の ThreeDFormatオブジェクトのほとんどのプロパティとメソッド は失敗します。

新しい形状は、それらのかなりsketchily定義のカテゴリのいずれかに該当するのであれば、その後、それはあなたの問題