STDMETHODIMP CVBA::ReDimPreserve2D(VARIANT* array_in_out, LONG lLbound0, LONG cElements0, LONG lLbound1, LONG cElements1)//какой порядок хотим, сейчас столбцы, строки
{
   if (!(array_in_out->vt & VT_ARRAY)) { return E_INVALIDARG; }  //если VARIANT НЕ содержит SAFEARRAY
   if (array_in_out->parray->cDims!=2) { return E_INVALIDARG; }  //если массив не двумерный
   if (cElements0<1 || cElements1<1) { return E_INVALIDARG; }  //если количество элементов в размерности меньше 1
   
   HRESULT hr=0;
   size_t cElements0In = array_in_out->parray->rgsabound[0].cElements; //количество элементов 1х массив/2х массив - столбцов
   size_t cElements1In = array_in_out->parray->rgsabound[1].cElements; //количество элементов 2х массив - строк
   if(cElements0==cElements0In && cElements1==cElements1In){//если размер массива не меняется, меняем только нижние границы
      char HUGEP* arrIn; //в с-массив
      if ((hr = SafeArrayAccessData(array_in_out->parray, (void HUGEP**)&arrIn))) { return hr; } //Увеличивает счетчик блокировок массива и извлекает указатель на данные массива.
         array_in_out->parray->rgsabound[0].lLbound = lLbound0;
         array_in_out->parray->rgsabound[1].lLbound = lLbound1;   
      if ((hr = SafeArrayUnaccessData(array_in_out->parray))) { return hr; } //Увеличивает счетчик блокировок массива и помещает указатель на данные массива в pvData дескриптора массива.
      return S_OK;
   }
   VARTYPE pvt=0;
   if(SafeArrayGetVartype(array_in_out->parray,&pvt)){ return E_INVALIDARG; }  //если не удалось узнать тип массива   
   size_t elemSize = SafeArrayGetElemsize(array_in_out->parray); //размер элемента массива в байтах

   //CComSafeArray<VARIANT> safeArrV;
   CComSafeArrayBound rgsabound[2];
   rgsabound[0].SetLowerBound(lLbound1);//нижняя граница массива - строки (наоборот от входящего массива?)
   rgsabound[0].SetCount(cElements1);//строки
   rgsabound[1].SetLowerBound(lLbound0);//нижняя граница массива - столбцы
   rgsabound[1].SetCount(cElements0);//столбцы
   //if (safeArrV.Create(bound, 2)) { return E_INVALIDARG; }//Указатель на объект SAFEARRAYBOUND, исло измерений в массиве.
   SAFEARRAY * safeArr = SafeArrayCreate(pvt, 2, rgsabound);
   
   long cElements0Min = cElements0 > cElements0In ? cElements0In : cElements0;//заполняемый массив - столбцов
   long cElements1Min = cElements1 > cElements1In ? cElements1In : cElements1;//заполняемый массив - строк
   size_t rowsSize=elemSize *cElements1Min;//итоговый размер строк в байтах
   long difElements1In= (cElements1In - cElements1Min)*elemSize+ rowsSize;//разница между количеством байт строк входящего массива и заполняемого
   long difElements1= (cElements1 - cElements1Min)*elemSize+ rowsSize; //разница между количеством байт строк исходящего массива и заполняемого

   char HUGEP* arrIn; //в с-массив
   char HUGEP* arrOut; //в с-массив
   if ((hr = SafeArrayAccessData(array_in_out->parray, (void HUGEP**)&arrIn))) { return hr; } //Увеличивает счетчик блокировок массива и извлекает указатель на данные массива.
   if ((hr = SafeArrayAccessData(safeArr, (void HUGEP**)&arrOut))) { SafeArrayUnaccessData(array_in_out->parray); return hr; } //Увеличивает счетчик блокировок массива и извлекает указатель на данные массива.   
   //код переноса кусков сторого массива в новый, в зависимости от размеров нового и старого и размера элемента
   if (cElements1 == cElements1In) {//если меняем только последнюю размерность - количество столбцов
      memcpy(arrOut, arrIn, rowsSize*cElements0Min); //заполняем массив куском строк из другого массива
      SecureZeroMemory(arrIn, rowsSize*cElements0Min); //заполняем нулями скопированный ранее участок памяти, что бы SafeArrayDestroy не почистил скопированные строки по оставшимся указателям
   }
   else {//если меняем и количество строк
      char* arrTmpIn = arrIn;
      char* arrTmpOut = arrOut;
      for (long i = 0; i < cElements0Min; i++) {//перебор по столбцам и копируем всю строку сразу (мин)
         memcpy(arrTmpOut, arrTmpIn, rowsSize); //заполняем массив куском строк из другого массива
         SecureZeroMemory(arrTmpIn, rowsSize); //заполняем нулями скопированный ранее участок памяти, что бы SafeArrayDestroy не почистил скопированные строки по оставшимся указателям
         //перемещение двух указателей на след.блок памяти, который нужно скопировать
         arrTmpIn += difElements1In;
         arrTmpOut += difElements1;
      }
   }
   if ((hr = SafeArrayUnaccessData(safeArr))) { SafeArrayUnaccessData(array_in_out->parray); return hr; } //Уменьшает количество блокировок массива и делает недействительным указатель, полученный SafeArrayAccessData .
   if ((hr = SafeArrayUnaccessData(array_in_out->parray))) { return hr; } //Уменьшает количество блокировок массива и делает недействительным указатель, полученный SafeArrayAccessData .

   SafeArrayDestroy(array_in_out->parray);
   array_in_out->parray = safeArr;//safeArrV.Detach();

   return S_OK;
}